Re: [算表] 自動找到空白的那欄

看板Office作者 (sasho)時間15年前 (2009/07/28 16:31), 編輯推噓0(0推 0噓 6→)
留言6則, 2人參與, 最新討論串1/1
※ 引述《pttsasho (sasho)》之銘言： 軟體: excel 版本: 2003 想利用匯入外部資料 再將外部資料做每日的統計 比方說 從網路上抓資料 在將資料貼到A欄 (這邊通通都用巨集執行) ex: A B C D 1 x 2 x 3 x 4 x 請問要怎麼寫 才可以讓電腦自動偵測到接下來的數據應該貼在B這一欄呢? 感謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.164.34.110
推
07/28 09:26,
資料篩選 可不可以呢
07/28 09:26
→
07/28 11:49,
你要的應該是 VBA 的程式囉？
07/28 11:49
→
07/28 11:49,
Cells.SpecialCells(xlCellTypeLastCell).Column+1
07/28 11:49
→
07/28 11:50,
可以獲得最後一個空白的那欄！
07/28 11:50
→
07/28 12:00,
感謝 :)
07/28 12:00
不好意思 如果說我複製的資料是一整欄的(B1:B4) 那我應該在錄製好的巨集裡怎麼寫才會使電腦自動判斷B1或是(B1:B4)就是要貼上的位置呢 語法要怎麼寫呢 是這樣嗎? Cells.SpecialCells(xlCellTypeLastCell).Column+1.select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 爬了一下午的文 還是找不到答案 只好乖乖的發文發問了 還請高手解答一下 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.164.34.110
→
07/28 20:36, , 1F
你指的是最後一空欄，還是最後一欄的最後一列呢？
07/28 20:36, 1F
→
07/28 22:17, , 2F
最後一空欄 附上w大提供的解答 感謝
07/28 22:17, 2F
→
07/28 22:18, , 3F
i = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells
07/28 22:18, 3F
→
07/28 22:18, , 4F
^^
07/28 22:18, 4F
→
07/28 22:18, , 5F
(xlCellTypeLastCell).Column + 1
07/28 22:18, 5F
→
07/28 22:19, , 6F
Cells(4, i).Select
07/28 22:19, 6F
‣ 更多 pttsasho 的文章
文章代碼(AID): #1ARhTbrv (Office)