Sub 按钮1_Click()
Columns("K:M").Select
Selection.ClearContents
J = Cells(Rows.Count, 1).End(3).Row
k = 2
For I = 3 To J
Range("B2:J2").Select
Selection.Copy
Cells(k, 12).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Cells(I, 2).Select
Application.CutCopyMode = False
Selection.Copy
Range(Cells(k, 11), Cells(k + 7, 11)).Select
ActiveSheet.Paste
Range(Cells(I, 2), Cells(I, 9)).Select
Application.CutCopyMode = False
Selection.Copy
Cells(k, 13).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
k = k + 8
Next
J = Cells(Rows.Count, 11).End(3).Row
For I = J To 1 Step -1
If Cells(I, 13) = "" Then
Range(Cells(I, 11), Cells(I, 13)).Select
Selection.Delete Shift:=xlUp
End If
Next
Range("K1").Select
End Sub
你这程序的表格与我发给你的下移了一行吗?你改时注意单元格的描述是CELLS(行,列),你有的改了,有的未改。最好你将真实表格发给我。原程序说明:
Sub 按钮1_Click() '本程序 处理A:I列的数据,行数可多行看看我的程序是否达到你的要求?如有不清楚的请再问我。