我用錄製的巨集後改了一下 ....
其他您就要自己改了 .....

Sub 巨集1()
'
' 巨集1 巨集
'

Sheets("行事曆").Select
Cells.Select
Selection.Copy
Worksheets.Add.Name = "PageTmp"
Sheets("PageTmp").Select
ActiveSheet.Paste
Sheets("PageTmp").Name = Range("P1:P1").Value
End Sub

echochio wrote:
我用錄製的巨集後改...(恕刪)


謝謝你~~
請問可以加入範例檔上傳嗎?
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!