vba写一个从其他两个工作簿的特定工作表中取回b列数据的代码

在VBA中，你可以创建一个宏来从其他两个工作簿的不同工作表中提取B列数据。下面是一个基本的例子，假设这两个工作簿分别名为“Workbook1”和“Workbook2”，工作表分别为“Sheet1”和“Sheet2”，并且这两个工作簿都在当前工作簿的同一目录下：

Sub FetchDataFromOtherWorksheets()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim bColumn As Range
    
    '打开其他工作簿
    Set wb1 = Workbooks.Open("Workbook1.xlsx")
    Set wb2 = Workbooks.Open("Workbook2.xlsx")
    
    '设置工作表对象
    Set ws1 = wb1.Worksheets("Sheet1")
    Set ws2 = wb2.Worksheets("Sheet2")

    '定义B列
    Set bColumn = ws1.Range("B:B") '假设B列都在同一位置

    '复制B列数据到当前工作簿
    bColumn.Copy Destination:=ThisWorkbook.ActiveSheet.Range("D1") '假设粘贴到当前工作表的D列第1行
    
    '关闭其他工作簿
    wb1.Close SaveChanges:=False
    wb2.Close SaveChanges:=False

End Sub

运行此宏后，B列的数据就会从指定的工作表复制到当前工作簿的相应位置。