[VBA ] 滑鼠移至下一行

看板Visual_Basic作者 (嚕啦啦~)時間17年前 (2008/11/24 00:39), 編輯推噓1(103)
留言4則, 2人參與, 最新討論串1/1
各位大大好~ 想請Excel的一個問題^^" sheet1:          A    1 哈囉  2 大大們好  3 請教幾個問題 4 希望可以找到解決方法^^ 經過巨集設定後自動複製後, sheet2:   A    B      C           D 1 哈嚕 大大們好  請教幾個問題   希望可以找到解決方法  ←反白中 2 _   ←我想讓欄位選取的位置 ↑↑↑↑↑↑ 以上,也是上網爬文之後所拼湊出來的~ 那問題來了~ 因為使用巨集自動複製完後, sheet2 剛貼上的第一行會成反白的狀態~ 那我想把游標自動擺在 "A2" 上, 而往後~sheet1所打完的資料, 一樣用巨集複製到sheet2 (資料要累積,所以欄位不能一直設定在 "Range("A2").Select") 網路爬文找不到... 用我這顆頭腦想了些"A*"、"A++"、"A+"... 都還是無法順利的自動移欄... 拜請大大教導了m(_ _)m ==============================資料補充線================================== Sub 建檔() Sheets("資料輸入").Select Range("L1:L22").Select Application.CutCopyMode = False Selection.Copy Sheets("累計資料").Select ActiveCell.Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True ############################################################# Application.Wait (Now + TimeValue("0:00:02")) Sheets("資料輸入").Select Range("C1:F1").Select Application.CutCopyMode = False End Sub 以上~ 是我目前的程式碼~ #號代表的是要完成我文章目的的佔位行^^" 再次謝謝m(_ _)m -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.217.154.34

11/24 11:58, , 1F
Cells("i,j").Select i是列 j是行 試試看吧
11/24 11:58, 1F

11/24 11:59, , 2F
更正 Cells(i,j).Select
11/24 11:59, 2F

11/24 17:30, , 3F
大大謝謝你的回應~不過這方法沒有用耶>.<我貼上我目前的
11/24 17:30, 3F

11/24 17:30, , 4F
程式碼給您看看好了^^"
11/24 17:30, 4F
※ 編輯: da126061 來自: 61.217.161.188 (11/24 17:34)
文章代碼(AID): #19AOTRiE (Visual_Basic)