[問題] Excel VBA 複製 貼上

看板Office作者 (口五口)時間10年前 (2015/05/15 11:31), 編輯推噓0(0推 0噓 1→)
留言1則, 1人參與, 最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 軟體: Excel 版本:2010 項目 年 數據 A 93 223 94 223 95 223 96 223 97 223 98 223 99 223 100 223 101 223 102 223 B 93 223 94 223 95 223 96 223 97 223 98 223 99 223 100 223 101 223 102 223 最近要處理一項資料，需要於102上方插入一列，並將102資料 選擇性貼上-值。 處理後應該像： 項目 年 數據 A 93 223 94 223 95 223 96 223 97 223 98 223 99 223 100 223 101 223 102 223 空一列 B 93 223 94 223 95 223 96 223 97 223 98 223 99 223 100 223 101 223 102 223 空一列 手動插入一列之後，發現這不是辦法， 因有上百個項目，決定用一個巨集處理掉，但寫出來一直有問題， 想請大家幫忙看看哪邊有問題，需要怎麼修改才能順利完成這件事。 謝謝大家 Sub 巨集() Set Rng = Range("B1:B400") For Each r In Rng If r.Value = 102 Then Range("B", "r.Row").Select Selection.Copy Selection.ClearContents ActiveWindow.LargeScroll ToRight:=-1 Range("B:r.Row-1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If Next End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.60.127.27 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1431660678.A.ADE.html
→
05/15 12:16, , 1F
05/15 12:16, 1F
‣ 更多 lamp119 的文章
文章代碼(AID): #1LLMY6hU (Office)