|
本单元格内容从SHEET 2中倒来的,怎么让内容加上行号,谢谢老师!
Sub 拍鸟清单()
Dim x As Long, i As Long, j As Long, k As Long
i = Sheet2.Range("g65536").End(xlUp).Row
j = 0
k = 1
For x = 4 To i
If Trim(Sheet2.Cells(x, "aa")) = 1 Then
j = j + 1
Sheet4.Cells(j, k) = Sheet2.Cells(x, "g")
If j Mod 11 = 10 And j <> 0 Then
k = k + 1
j = 0
End If
End If
Next x
MsgBox "执行完毕!"
End Sub
原基础上修改:
- Sub 拍鸟清单()
- Dim x As Long, i As Long, j As Long, k As Long
- i = Sheet2.Range("g65536").End(xlUp).Row
- j = 0
- k = 2
- For x = 4 To i
- If Trim(Sheet2.Cells(x, "aa")) = 1 Then
- j = j + 1
- Sheet4.Cells(j, k - 1) = (k - 2) * 5 + j
- Sheet4.Cells(j, k) = Sheet2.Cells(x, "g")
- If j Mod 11 = 10 And j <> 0 Then
- k = k + 2
- j = 0
- End If
- End If
- Next x
- MsgBox "执行完毕!"
- End Sub
复制代码
|
|