[算表] Excel巨集執行時，如何在遇到特定關鍵字即停止?

[ashiung (aShiung)]

軟體:MS Excel

版本:2003

因為要整理一份會計報表

那再利用巨集搬移位置時

中間會有"小計"

是想請問看看，巨集要如何加入，才會在遇到儲存格內有特定文字時

會停止，或者是改執行其他指令?

謝謝

-----------------這是我的VBA

ActiveCell.Offset(0, 4).Select

If Range("A1").Value = "小計:" Then

Stop

Else
    ActiveCell.Offset(0, -4).Select
    ActiveCell.Offset(1, 2).Range("A1").Select
    Selection.Cut
    ActiveCell.Offset(-1, 1).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 2).Range("A1").Select
    Selection.Cut
    ActiveCell.Offset(-1, 1).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    ActiveCell.Select

End If

End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.230.40.96
推 Sdany:用 if 去判斷儲存格內容 符合條件 執行指令 end 結束
→ ashiung:因為巨集是使用相對位置~所以要怎樣取得儲存格內容呢?~
→ ashiung:我看了錄製巨集的內容，用了Range("A1")卻是去跟實際上的
→ ashiung:的A1比對
※ 編輯: ashiung         來自: 125.230.40.96        (11/03 14:49)
→ soyoso:用迴圈for i=1 to [a65535].end(xlup).row
→ soyoso:再加上if去判斷 if range("a"&i) = "小計" then