錄製巨集每日向下新增一列資料-選擇性貼上設定 - Excel程式區

[發問] 錄製巨集每日向下新增一列資料-選擇性貼上設定

1^# 跳轉到 »

發表於 2013-7-25 11:17 | 顯示全部帖子

回復 1# zv1122

因為你上色的部分，在2007牽扯到管理規則我真的不知道怎麼幫你解決

但是你貼上的程式碼可以利用以下這段

Sub CopyPaste()
Sheets("sheet1").Range("A1:E1").Copy
'我幫你改成A1:E1五欄，需要的你再自己改
With Sheets("sheet2")
.Activate
.Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial xlPasteValues
'使用PasteSpecial 方法，可以類似你複製一段範圍，到你要的地方按右鍵，選擇性貼上裡面的所有功能，裡面好樣沒包含你的管理規則，就是依據規則上色的部分(這部分我不知道有沒有搞懂，你上色是直接貼上顏色還是，依據管理規則變色??)，所以使用xlPasteValues 只貼上值
'Sheets("A")的C欄最後一列(Cells(Rows.Count, "C"),
'End(xlUp)往上到有資料列
'Offset(1)的下一列
End With
End Sub

複製代碼

靜思自在 : 發脾氣是短暫的發瘋。