求救!!! 我想做以下修改 1. Range("B1:C1").Select --> 這是指定儲存格位置嘛, 要怎麼寫可以指定我設定的該儲存格名稱呢? 2. Range("C1").Activate Range(Selection, Selection.End(xlDown)).Select --> 我想往下選擇所有有資料的儲存格做copy, 但如果我指定的儲存格名稱九月到列10下去就沒有值, 但我指定的儲存格名稱十月到列10下還有值, 所以我以我指定的儲存格名稱十月為Activate 解決, 因為工作表很多, 我不想依依去看每個工作表要由那個來做activate, 要怎麼改呢?
Sub Macro1() ' ' Macro1 Macro ' ' Sheets("AC Adapter").Select Sheets("AC Adapter").Copy Before:=Sheets(1) Sheets("Chipset-Intel").Select Range("B1:C1").Select Range("C1").Activate Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("AC Adapter (2)").Select Range("A22").Select Selection.End(xlDown).Select Range("A240").Select ActiveSheet.Paste Sheets("Chipset-Intel").Select Range("CE18:CF32").Select
Range("CF32").Activate Range(Selection, Selection.End(xlUp)).Select Application.CutCopyMode = False Selection.Copy Sheets("AC Adapter (2)").Select ActiveWindow.SmallScroll Down:=6 Range("AP240").Select ActiveSheet.Paste Selection.End(xlUp).Select Range("A2").Select ActiveWindow.FreezePanes = True Range("B7").Select Selection.End(xlDown).Select Range("B275").Select Sheets("Chipset-Non Intel").Select Range("CT1:CU25").Select
Application.CutCopyMode = False Selection.Copy Sheets("AC Adapter (2)").Select Range("AP272").Select ActiveSheet.Paste Sheets("Chipset-Non Intel").Select Range("A1:B25").Select Range("B25").Activate Application.CutCopyMode = False Selection.Copy Sheets("AC Adapter (2)").Select Range("A272").Select ActiveSheet.Paste End Sub
謝謝先生的回覆, 我就是不要用已知位置, 因為每次都要對30幾個工作表,找出位置, 所以我要改用特定的儲存格名稱