我有一个程序需要复制同一工作簿和工作表中的选择列。 当前的代码导致Excel崩溃,所以我不确定它是否工作。如何复制同一工作表中的列Excel VBA
有没有更好的方法来将同一工作表中的列复制到同一个工作簿中?
代码:
Sub Macro1()
Dim wb1 As Workbook
'Set it to be the file location, name, and file extension of the Working File
Set wb1 = Workbooks.Open("Z:\XXX\Working File.xlsx")
MsgBox "Copying Fields within Working File"
wb1.Worksheets(1).Columns("G").Copy wb1.Worksheets(1).Columns("H").Value
wb1.Worksheets(1).Columns("J").Copy wb1.Worksheets(1).Columns("O").Value
wb1.Worksheets(1).Columns("K").Copy wb1.Worksheets(1).Columns("N").Value
wb1.Worksheets(1).Columns("M").Copy wb1.Worksheets(1).Columns("P").Value
wb1.Close SaveChanges:=True
End Sub
在结尾处取下'.Value'。你只是想复制到一个范围,而不是Value。但是,如果你只是需要值而不是格式化/ etc,你可以做'Range([Destination Range])。Value = Range([copy range])。Value',即'wb1.Worksheets(1).Columns “H”)。Value = wb1.Worksheets(1).Columns(“G”)。Value'。另外,您是否需要使用整个色谱柱? – BruceWayne
嗯,我补充说,因为客户想要一个粘贴值的唯一选项,我认为这是你如何能做到这一点 –
我确实需要整列 –