怎样写宏把表格里面多列数据快速粘贴到多个工作簿的B列？ excel宏复制多个工作表
高分 excel宏VBA语言编写复制多列到一个工作表中
以上代码适用于，除了第n表外，只有一个sheet1的情况。
excel中vba的针对性还是蛮强的，需要考虑的情况是很多的。
打开工作表，工具，宏，安全性，中，确定
alt+f11
菜单，插入，模块，复制下面代码到右边空白区，存盘退出，重新打开文件，选择启用宏，然后alt+F8
选择 复制合并 这个宏，运行，即可
以下是代码
Sub 复制合并()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count - 1
Sheets("第" & i & "表").Range("A:B").Copy Sheets("sheet1").Cells(1, i * 2 - 1)
Next
Application.ScreenUpdating = False
End Sub
EXCEL用宏按钮导入多个工作薄中指定数据
只能用宏来实现，具体如下：
Sub TEST()
Application.ScreenUpdating = False
For Each ST In Sheets
ST.UsedRange.Offset(1, 0).ClearContents
Next
MyPath = ThisWorkbook.Path
MYFILE = Dir(MyPath & "\*.xls")
Do Until MYFILE = ""
If MYFILE <> ThisWorkbook.Name Then
Set FS = Workbooks.Open(MyPath & "\" & MYFILE)
For I = 1 To 3
With FS.Sheets(I)
.Range("A2:D" & Range("A65536").End(3).Row).Copy ThisWorkbook.Sheets(I).Range("A65536").End(3)(4)
End With
Next
FS.Close
End If
MYFILE = Dir
Loop
Application.ScreenUpdating = True
End Sub
如何用EXCEL的宏命令 连续粘贴多个单元格数据到对应单元格
Sub Macro2()
'循环起始行
iStart = 5
'循环结束行
iEnd = 7
'将BOOK1中SHEET1 H5起每隔1行中的数据（H5,H6,H7.....） 粘贴到BOOK1中 SHEET1 B5起每隔12单元格中
For i = iStart To iEnd
strText = Range("H" & i)
j = 5 + 12 * (i - 5)
Range("B" & j) = strText
Next
'H5起每隔1行中的数据（H5,H6,H7.....） 粘贴到BOOK1中 SHEET1 B5和C5合并后的每隔12单元格
For i = iStart To iEnd
strText = Range("H" & i)
j = 5 + 12 * (i - 5)
Range("B" & j & ":C" & j).Merge
Range("B" & j & ":C" & j) = strText
Next
End Sub
excel利用宏批量复制粘贴
第一次是 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