從起始細胞在Excel中選擇的動態範圍，並尋找在其他行

我有一個電子表格，其中，如果所選擇的小區是B2 Excel稍後將選擇範圍A2匹配值：E2，但如果B3的值是相同的B2那麼範圍將是A2：E3。如果在B2中有相同值的1,2,3,4,5等行的話，我也需要這樣做。從起始細胞在Excel中選擇的動態範圍，並尋找在其他行

一旦進行了宏觀的其餘部分，我想它，然後返回到前一個選擇的範圍的結束和向下移動一行，並重復這個過程，直到滿足列空單元格D. example of spreadsHeet

來源

2017-10-21 Drewstein

在你的代碼的開頭，創建一個變量來保存ActiveCell地址：

Dim lastCell As String 
lastCell = ActiveCell.Address

在你的代碼的末尾，選擇單元格，但是使用了Range +1行：

Range(lastCell).Offset(1, 0).Select

然後你就可以查詢新的活動單元格是否爲空，並根據需要採取行動：

If ActiveCell.Value = "" Then 
    'cell is empty 
    Range(ActiveCell.Address).Offset(1, 0).Select 'move down another cell 
    '...do something here... 
Else 
    'cell is not empty 
    '...do something here... 
End If

來源

2017-10-21 07:58:08 ashleedawg

僅供參考 - '範圍（ActiveCell.Address）'可以簡化爲'ActiveCell'。 – YowE3K

是的，很多代碼都可以簡化，但是我做得越短，人們似乎越是抱怨... :-) 這裏是相同的代碼： Dim l，r：l = ActiveCell：r = Range （L）.Offset（1,0）：r.Select：如果r = '' 然後極差（R）.Offset（1,0）.Select' – ashleedawg

感謝您的幫助，我掙扎得到它來選擇範圍其調查結果欄A：問。 – Drewstein

從起始細胞在Excel中選擇的動態範圍，並尋找在其他行

回答

相關問題