[算表]excel巨集複製整列 如含有空格貼上就停止

看板Office作者 (321)時間10年前 (2015/08/03 11:11), 10年前編輯推噓0(0010)
留言10則, 1人參與, 最新討論串1/1
軟體:Excel 版本:2010 我錄製了一個巨集 用來把'a'分頁特定欄位複製到'b'分頁 假設內容為 4 4 5 5 6 6 7 7 在'b'結果會變成 9 10 11 12 空格以下的9~12都不會出現 請問該如何改善 錄製出的結果如下 Sheets("a").Select Range("AU2").Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Sheets("b").Select Range("E2").Select ActiveSheet.Paste 還請各位前輩賜教了 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.249.0.73 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1438571472.A.806.html

08/03 11:57, , 1F
原po要的功能是1.將4~12含空白儲存格貼到b工作表的"e2",
08/03 11:57, 1F

08/03 11:58, , 2F
或是2.4~12但不含空白儲存格貼到b工作表的"E2"
08/03 11:58, 2F
我想要的4~12含空白儲存格貼到b上 我剛剛嘗試在Range("AU2").Select改成Range("AU2:AU65536").Select 就能達到我想要的了 不過處理速度似乎有變得比較久 有沒有其他方式 另外想請問一下 AU2:AU任意數字 這樣輸入 會不會讓後面出現一大串的0 如果會要如何避免 因為之前錄製其他巨集 用Worksheets("工作表名稱").Range("H2:H99").FillDown 就在空白的部分出現一串0 但出現條件目前捉摸不定 寫在一些地方有 有的又不會 還麻煩前輩了 謝謝 ※ 編輯: david5192003 (60.249.0.73), 08/03/2015 12:09:26

08/03 12:03, , 3F
1的話要取最後有值的儲存格,可用range.end(xlup)
08/03 12:03, 3F

08/03 12:05, , 4F
2的話可用range specialcells,以原文來看的話,type為常
08/03 12:05, 4F

08/03 12:06, , 5F
數,value為xlnumbers
08/03 12:06, 5F

08/03 12:16, , 6F
看原po回文使用1的話,https://goo.gl/AChnPL 試試
08/03 12:16, 6F
太感謝您了 居然一行就完成了!!! 等等就來修正我巨集 謝謝!! ※ 編輯: david5192003 (60.249.0.73), 08/03/2015 12:47:00 使用這方法出現錯誤1004 上網查好像是系統剪貼簿無法容納太多的資料 這該如何處理??? 謝謝 ※ 編輯: david5192003 (60.249.0.73), 08/03/2015 13:44:21

08/03 13:49, , 7F
以連結檔案來看,出現錯誤1004,會於在b工作表執行該巨集
08/03 13:49, 7F

08/03 13:56, , 8F
稍微調整一下 https://goo.gl/AChnPL 重下試試
08/03 13:56, 8F

08/03 13:59, , 9F
如要在任何工作表都能執行且不用worksheet.select的話
08/03 13:59, 9F

08/03 13:59, , 10F
則使用 https://goo.gl/n6wcKL 這樣寫法試試
08/03 13:59, 10F
太感謝了 我淚流滿面 感謝熱心的s大 能正常運作 謝謝 ※ 編輯: david5192003 (60.249.0.73), 08/03/2015 14:43:26
文章代碼(AID): #1LljlGW6 (Office)
文章代碼(AID): #1LljlGW6 (Office)