excel宏如何编写同时粘贴值和数字格式与转置-excel复制粘贴宏,excel宏实现自动复制粘贴

Sheets("sheet1").Range("a3").Copy (Sheets("sheet2").Range("f1"))

这个是复制单元格来 并全部粘贴 包括格式…自…zd

如果只想 让sheet2 F1 值等于 sheet1 A3 值的话 可以使用如下代码……

Sheets("sheet3").Range("f1") = Sheets("sheet1").Range("a3")

excel VBA之所以好学是因为excel可以录制宏，录制宏之后可以看到代码的。你写VBA的时候可以参考这些代码的。这个才是根本的解决办法。你要求的两段代码都可以通过录制宏得到！
以上代码适用于，除了第知n表外，只有一个sheet1的情况。
excel中vba的针对性还是蛮强的，需要考虑的情况是很多的。
打开工作表，工具，宏，安全性，中，确定
alt+f11
菜单道，插入，模块，复制下面代码到右边空白区，存版盘退出，重新打开文件，选择启用宏，然后alt+F8
选择 复制合并 这个宏，运行，即权可
以下是代码

Sub 复制合并()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count - 1
Sheets("第" & i & "表").Range("A:B").Copy Sheets("sheet1").Cells(1, i * 2 - 1)
Next
Application.ScreenUpdating = False
End Sub

Sheet2中会不会不出现第一行和第三行有数据，第二行没有数据的情况？如果有的话还是粘贴到第二行吗？
建议你截个Sheet2的图