VBA

Question

代码从 sheet 中查找值并将它们复制到一个 sheet 中。如果一列完全为空，则打印 "NO ITEMS".

我需要这样做，一旦完成项目的复制，它 会在 "B" (StartSht , "B") 并且从 "C" 的最后一个占用单元格的范围开始, 用字符串 "EMPTY"

知道我会怎么做吗？

它确实 (1) 而我需要它来完成 (2)

(1)

(2)

Set dict = GetValues(hc3.Offset(1, 0))
If dict.count > 0 Then                  
    'add the values to the master list, column 2
    Set d = StartSht.Cells(Rows.count, hc1.Column).End(xlUp).Offset(1, 0)
    d.Resize(dict.count, 1).Value = Application.Transpose(dict.items)
Else
    'if no items are under the HOLDER header
    StartSht.Range(StartSht.Cells(i, 2), StartSht.Cells(GetLastRowInColumn(StartSht, "C"), 1)) = " NO ITEMS "
End If

Answer 1

使用 SpecialCells 功能可以轻松找到空白单元格。这与使用 GoTo（或按 F5）并选择 Blanks.

相同

StartSheet.Range("B:B").SpecialCells(xlCellTypeBlanks).Value = "EMPTY"

在建立适当的范围后，您可以对 C 列执行相同的操作。

Answer 2

StartSht.Range(StartSht.Cells(GetLastRowInColumn(StartSht, "B"), 2), StartSht.Cells(GetLastRowInColumn(StartSht, "C"), 1)).SpecialCells(xlCellTypeBlanks).Value = "EMPTY"

VBA - 查找空单元格，设置为 "EMPTY"

VBA - find empty cells, set equal to "EMPTY"

excel

is-empty