写一段VBA代码,将所有打开的工作簿中的同一sheet中的B列数据按顺序插入到新工作簿中。
时间: 2023-03-11 11:34:15 浏览: 96
Sub InsertB()
Dim wb As Workbook
Dim wb2 As Workbook
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim j As Integer
Dim i As Integer
Set wb = ActiveWorkbook
Set ws = wb.ActiveSheetSet wb2 = Workbooks.Add
Set ws2 = wb2.ActiveSheetj = 1For i = 1 To wb.Sheets.Count
wb.Sheets(i).Select
ws.Range("B1").CurrentRegion.Copy
ws2.Range("A" & j).PasteSpecial
j = j + ws.Range("B1").CurrentRegion.Rows.Count
Next iEnd Sub
相关问题
写一段VBA程序用于将EXCEL中所有的sheet表按顺序依次合并到第一个表单中
以下是一段VBA程序,可以用于将EXCEL中所有的sheet表按顺序依次合并到第一个表单中:
```
Sub MergeSheets()
Dim sh As Worksheet
Dim destSheet As Worksheet
Set destSheet = ThisWorkbook.Sheets(1)
For Each sh In ThisWorkbook.Sheets
If sh.Name <> destSheet.Name Then
sh.UsedRange.Copy destSheet.Cells(destSheet.Rows.Count, 1).End(xlUp).Offset(1)
End If
Next sh
End Sub
```
该程序遍历了当前工作簿中的所有sheet表,并将除第一个表单外的数据依次复制到第一个表单的下方。
如何用vba把源工作簿所有sheet的第i行数据复制到目标工作簿的第i个sheet中
可以使用以下VBA代码实现将源工作簿所有sheet的第i行数据复制到目标工作簿的第i个sheet中:
```
Sub CopyDataToTargetWorkbook()
Dim sourceWorkbook As Workbook, targetWorkbook As Workbook
Dim i As Integer, lastRow As Long
'打开源工作簿
Set sourceWorkbook = Workbooks.Open("源工作簿路径")
'打开目标工作簿
Set targetWorkbook = Workbooks.Open("目标工作簿路径")
'循环所有sheet
For Each sourceSheet In sourceWorkbook.Sheets
'在目标工作簿中找到对应的sheet
Set targetSheet = targetWorkbook.Sheets(sourceSheet.Name)
'复制第i行数据
lastRow = targetSheet.Cells(Rows.Count, 1).End(xlUp).Row '获取目标sheet中最后一行的行号
For i = 1 To sourceSheet.Columns.Count
targetSheet.Cells(lastRow + 1, i).Value = sourceSheet.Cells(i, 1).Value
Next i
Next sourceSheet
'关闭工作簿
sourceWorkbook.Close
targetWorkbook.Close SaveChanges:=True
End Sub
```
其中,需要将代码中的“源工作簿路径”和“目标工作簿路径”替换为实际的文件路径。同时,需要根据实际需求修改复制的行数。
相关推荐
![doc](https://img-home.csdnimg.cn/images/20210720083327.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)