分类：电脑/网络-软件-办公软件
问题：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