<em>VB</em>如何从一个excel表复制内容到另外一个表中

先私信百你，一会度再发问 ，不答然容易版失效。权。。
Private Sub Command1_Click()
Dim XlApp As Application
Dim Xlbook As Workbook
Set XlApp = New Excel.Application
With XlApp.Workbooks.Open("D:\B.XLSX")
Set Xlbook = XlApp.Workbooks.Open("D:\A.XLSX")
Xlbook.Worksheets(1).Range("A1" & ":" & "G5").Copy .Worksheets(1).Range("A6" & ":" & "G10")
Xlbook.Close False
.Close True
Set XlApp = Nothing
Set Xlbook = Nothing
End With
End Sub

1.如图，将单元格区域复制，并粘贴到另外的区域，很明显，粘贴后并没有所有的格式复制过来。特别抄是行高列宽。要重新调整很袭麻烦。

2.其在粘贴选项里选择保持“保留源列宽”就可以了。

3.第二种方法是选择性粘贴的方法，
点鼠标右键→“选择性粘贴”命令，在对话框中选择“列宽”。

4.复制单元百格保留单元格行高和列宽
整行复制可以保留行高，整列度复制可以保留列宽，都要保留就只有整表复制。
要同时选择区域所在的行和列

Sheets(1).Rows(1).Copy Sheets(2).Rows(2)

.CurrentRegion表示目标区域占用的整个数据区，相当于按一下ctrl+A

你的代码是录制宏出来的吧？宏录制有一个致命缺点，它录制的是你的操作过程百，而不是结果。
想copy，paste这种动作，是很麻烦的
其实你只需要一度个赋值就够了“=”
Sheets("表二“).cells(1,2)=Sheets("表一“).cells(1,1)

但是我觉得你应该有很多行要复制，给你写了一个批量的，能把表一中A列所有数据一口气都复制到表二B列中
Sub a()
r = 1
Do Until Cells(r, 1) = ""
Sheets("表二“).Cells(r, 2) = Sheets("表一“).Cells(r, 1)
r = r + 1
Loop
End Sub
以下是说明

sub a()--定义一个宏，叫a
初始内值r=1，即，开始复制数据的第一行的行号，如果你从A2开始复制，r就等于2
开始循环，直到第一列最后一个数容
叫"表二“的表格中第r行，2列=叫表一的表格中，第r行第1列的数值
行数+1
继续循环
结束宏