
我對 Excel VBA 程式設計比較陌生,並且在產生巨集時遇到問題。我的數據看起來像這樣。在標題為“N”的 A 列中,我有向下數行的計數。如果計數介於 1 和 6 之間,則該儲存格中的值為「<6」。否則顯示計數。在標題為「%」的 B 列中,我得到了該行相對於總數的百分比。此模式重複可變次數,直到表格結尾。
我希望實現的是,每次發現值“<6”時,將單元格中的值直接更改為右側的“S”(表示百分比被抑制)。
答案1
這是您需要的程式碼區塊。您應該嘗試將其整合到您自己擁有的任何程式碼中。
Dim rng As Range, cell As Range
Set rng = Intersect(Range("A:A"), UsedRange)
If rng Is Nothing Then Exit Sub
For Each cell In rng.Cells
If cell.Value = "<6" Then cell.Offset(0, 1).Value = "S"
Next