EXCEL 求一小段VBA程序

EXCEL 求一小段VBA程序,第1张

Sub change()

Dim i As Integer

Dim j As Integer

Dim row As Integer

Dim g1 As Integer

Dim k As Integer

Dim r1 As Integer

Dim c1 As Integer

row = 1

Do

row = row + 1

Loop While Sheet1Cells(row, 1) <> ""

g1 = Sheet1Cells(1, 7)

r1 = 2

c1 = 8

k = 1

For i = 2 To row

For j = 1 To 5

Sheet1Cells(r1, c1) = Sheet1Cells(i, j)

k = k + 1

If k <= g1 Then

c1 = c1 + 1

Else

c1 = 8

r1 = r1 + 1

k = 1

End If

Next j

Next i

End Sub

我也是初学者,相互学习 Sub test() Dim i%, j%, col% j = 0 col = 2 For i = 1 To 3 If Cells(2, col)Value >= 90 Then j = j + 1 End If col = col + 1 Next If j >= 2 Then Cells(2, 6) = 100 End If End Sub

以上就是关于EXCEL 求一小段VBA程序全部的内容,包括:EXCEL 求一小段VBA程序、VBA/C语言编写小程序、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zz/9858867.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-02
下一篇 2023-05-02

发表评论

登录后才能评论

评论列表(0条)

保存