[已解决]vba中如何选择性粘贴

高

例如：
目的：A文件的sheet1中的a2:a4   要等于   B文件的sheet1中的a2:c2
当前情况：1、用等号连接不行。通过试验发现，如果在同一工作薄中还行，两个文件就不行了，只能出现第一个单元格的值
                  2、用copy方法，用了选择性粘贴数值，但是粘贴后会出现多列的结果（在此例中会出现3行3列都粘贴上）
求助：如果用选择性粘贴中的转置，我没找到。请示例代码

最佳答案

月排行榜 / 总排行榜

Zipall

2011-12-29 00:01

赋值前用transpose转置一下
Workbooks("a.xls").Sheets(1).Range("a2:a4") = Application.WorksheetFunction.Transpose(Workbooks("b.xls").Sheets(1).Range("a2:c2"))

跳转到最佳答案楼层

高

补充一下，我不想一个一个地输入谁等于谁。因为是连续区域，所以求转置

高

已解决                              

Zipall

赋值前用transpose转置一下
Workbooks("a.xls").Sheets(1).Range("a2:a4") = Application.WorksheetFunction.Transpose(Workbooks("b.xls").Sheets(1).Range("a2:c2"))

epexiaocheng

学习.............................