Sub xx()
Do
For i = 11 To 47 Step 12
For j = 2 To 7
If Cells(j, i) <> "" Then Cells(j, i).Resize(1, 10).ClearContents: Exit Do
Next
Next
Loop Until True
If j >= 7 Then
j = 2
If i >= 47 Then
i = 11
Else
i = i + 12
End If
Else
j = j + 1
End If
arr = [a14:a23]
Cells(j, i).Resize(1, 10) = Application.Transpose(arr)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024