Question

VBA实现表A中指定名字的列复制到另一个工作表中指定名字的列下方

如：AAA.xls工作表的sheet1中，有一列“姓名”列，BBB.xls工作表的sheet2中，有一列“NAME”列，如何用VBA编写程序，把“姓名”列下的内容，复制到“NAME“列下？





Answer 1

在AAA.xls工作簿的VBA中，插入一个“用户模块”，把下面代码粘贴进去

Sub 复制()
Sheets("sheet1").Select '选择AAA.xls工作簿的sheet1表
x = Range("a65536").End(xlUp).Row '得到A列数据数量
Range("a2:a" & x).Copy '复制
Windows("BBB.xls").Activate '激活BBB.xls工作簿
Sheets("sheet2").Select '选择BBB.xls工作簿的sheet2表
Range("a2").Select
ActiveSheet.Paste '在目标位置数值
End Sub

试试吧

Answer 2

假设代码在aaa.xls内，bbb。xls与aaa工作薄在同一个路径

Sub mycopy()
Dim arr, brr, c%
Application.DisplayAlerts = False
arr = ThisWorkbook.Sheets("sheet1").UsedRange.Value
For c = 1 To UBound(arr, 2)
    If arr(1, c) = "姓名" Then '这里假设姓名在表的第一行。。
       brr = Application.Transpose(Application.Index(arr, , c))
       Exit For
     End If
Next
Workbooks.Open Filename:=ThisWorkbook.Path & "\bbb.xls"
     With Sheets("sheet2")
          For c = 1 To 255
              If .Cells(1, c) = "NAME" Then
                 Exit For
               End If
          Next
          .Cells(1, c).Resize(UBound(brr), 1) = Application.Transpose(brr)
          .cells(1,c)="NAME"
      End With
ActiveWorkbook.Close True
Application.DisplayAlerts = True
End Sub
end sub

追问

高手能不能解释下第7、18行的意思

追答

brr = Application.Transpose(Application.Index(arr, , c))
brr是个数组变量，arr是一个两维数组变量，结合到前面的意思就是，抽取arr数组中第c列（姓名列）的内容，转置一下，变成一维数组并赋值给brr

第18行， .Cells(1, c).Resize(UBound(brr), 1) = Application.Transpose(brr)
以cells(1,c)(即name）单元格为基准，选择一个1列，行数为数组brr中元素数的区域，其内容等于brr，因为brr其实是一个一维数组（一行）与我们赋值的区域不同，所以前面加transpose转置 下

这些都是数组的入门知识，多看看就会了。

Answer 3

Sheets("Sheet1").Select
Range("A2:A4").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
ActiveSheet.Paste

追问

请问代码里能不能包含“姓名”和“NAME”这种列的第一行名称？

追答

range("a2:a4")就是单元格的范围，就看你的需要了，可以包含也可以不包含。