EXCEL 求一小段VBA程序

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语言编写小程序、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！