我遇到以下代碼的問題。我希望它遍歷一個範圍(AK2直到數據結束),然後任何時候它發現一個空單元格,它將其值更改爲應收帳款。它沒有這樣做,我也沒有得到任何錯誤通知。我的猜測是,我在設置變量時做了一些錯誤:遍歷範圍並找到空單元格
Option Explicit
Private Sub Leere()
Dim rng As range
Dim rcell As range
Dim WS As Worksheet
Set WS = Worksheets("Sheet2")
Set rng = WS.range("AK2", range("AK2").End(xlDown))
For Each rcell In rng
If rcell.Value = " " Then
rcell.Value = "Accounts Receivable"
End If
Next
End Sub
任何想法?
找到一個空白做.value =「」而不是.value =「」(拿出空間) – Zerk
哇,這只是!謝謝 – Urumita
它將如何與isempty(rcell)一起使用? – Urumita