2017-04-11 54 views
1

我試圖複製活動列,並將其旁邊粘貼但代碼選擇整個工作表,因爲它已合併單元格英寸VBA代碼與合併單元格複製和粘貼活動列內

Sub CopyPaste() 

Columns(ActiveCell.Column).Selection 
Selection.Copy 
ActiveCell.Offset(0,1).PasteSpecial Paste:=xlPasteAll 

End Sub 

您能否幫我添加缺少的代碼來忽略合併的單元格?

+0

是什麼'欄(ActiveCell.Column).Selection'嗎? – Jeeped

回答

5

這是另一個原因,以避免在VBA使用Select爲Excel。您的選擇將隨合併單元格一起展開。你可以試試這個:

ActiveCell.EntireColumn.Copy ActiveCell.Offset(0, 1).EntireColumn 

再次,你應該找到一些方式來避免在你的代碼上ActiveCell計數,並使用一些完全合格範圍內。

+0

感謝您的幫助。我不習慣代碼,而無需選擇,需要更換新的編碼​​,而不選擇 – Maxwell

+1

@Maxwell - 參見[如何避免在Excel中VBA宏使用Select(http://stackoverflow.com/questions/10714251/how-to在-Excel的VBA的宏 - 避免使用 - - 選擇 - )。 – Jeeped

+1

@Maxwell SO Excel-VBA文檔也可以幫助您,例如[最佳實踐](http://stackoverflow.com/documentation/excel-vba/1107/vba-best-practices#t=201704111544413447144)。 – SteveES

相關問題