- excelVBA求一个将不规则区域复制,然后有规划地粘贴将SHE
- 将SHE1中的不规则区域的数字粘贴到SHEET2中(SHEET2每区域相隔9行)
- Sub 按钮1_单击()
i = 0
If Cells(1, 5) <> "" Then
Cells(1, 5).CurrentRegion.Copy Sheet2.Cells(i * 9 + 1, 1)
i = i + 1
End If
For k = 2 To Sheet1.[e65536].End(xlUp).Row
If Cells(k, 5).Offset(-1) = "" And Cells(k, 5) <> "" Then
Cells(k, 5).CurrentRegion.Copy Sheet2.Cells(i * 9 + 1, 1)
i = i + 1
End If
Next
End Sub