UC知道excel利用宏批量复制粘贴
来源：百度知道 编辑：UC知道 时间：2024/05/28 19:49:17
目前程序如下：
Sub try()
'
' try Macro
' 宏由 walkinnet 录制，时间: 2009-10-1
'
'
Range("B1").Select
Selection.Copy
Sheets("Sheet1").Select
Range("C8").Select
ActiveSheet.Paste
Sheets("Sheet2").Select
Range("B2:B5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet2").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("C9").Select
ActiveSheet.Paste
Sheets("Sheet2").Select
Range("B7:B10").Select
Applica
Sub try()
'
' try Macro
' 宏由 walkinnet 录制，时间: 2009-10-1
'
'
Range("B1").Select
Selection.Copy
Sheets("Sheet1").Select
Range("C8").Select
ActiveSheet.Paste
Sheets("Sheet2").Select
Range("B2:B5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Sheet2").Select
Range("B6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Range("C9").Select
ActiveSheet.Paste
Sheets("Sheet2").Select
Range("B7:B10").Select
Applica
第一次是 B1:B5，第二次是 B7:B11 啊？
哦，是这样啊？
下面代码己调试。
Sub HelpMMHehe()
Dim row1 As Integer
Dim row2 As Integer
Dim sht2 As Worksheet
Dim sht1 As Worksheet
Set sht2 = Sheets("Sheet2")
Set sht1 = Sheets("Sheet1")
row1 = 1
For row2 = 1 To 299 Step 6
sht2.Range("B" & CStr(row2) & ":B" & CStr(row2 + 4)).Copy
sht1.Range("E" & CStr(row1)).PasteSpecial xlPasteAll, , , True
row1 = row1 + 1
Next
End Sub
哇靠,对于我们这种只知道玩游戏的小孩怎么知道啊
用for循环呀，你这个乱七八糟的看不清楚要干什么。你把表格发给我，我帮你弄
coolbi5@163.com