如何编写返回数据组第K个值的VBA命令

Answer 1

ALT+F11打开VBA，插入模块，粘贴以下代码，F5运行。
Sub test()
Dim j, k As Integer
Sheet1.Activate
j = Range("a65535").End(xlUp).Row
For i = j To 1 Step -1
hv = Cells(i, 8)
If hv = 6 Then
Cells(j - k, 9) = Cells(i, 1)
Cells(j - k, 10) = Cells(i, 2)
Cells(j - k, 11) = Cells(i, 3)
Cells(j - k, 12) = Cells(i, 4)
Cells(j - k, 13) = Cells(i, 5)
Cells(j - k, 14) = Cells(i, 6)
Cells(j - k, 15) = Cells(i, 7)
Cells(j - k, 16) = Cells(i, 8)
k = k + 1
End If
Next
End Sub