VBA - 找到空单元格,设置等于" EMPTY"

时间:2015-06-18 20:02:25

标签: excel vba excel-vba is-empty

代码从工作表中查找值并将其复制到一个工作表。如果列完全为空,则会打印" NO ITEMS"。

我需要这样做,一旦完成复制项目,会在列中找到任何空白单元格" B" (StartSht,&#34 ; B")以及" C"的最后一个被占用单元格的范围up,用字符串" EMPTY"

填充

任何想法我会怎么做?

它确实(1)我需要它做(2)

(1)

enter image description here

(2)

enter image description here

app

2 个答案:

答案 0 :(得分:1)

使用date功能很容易找到空白单元格。它与使用GoTo(或点击 F5 )并选择SpecialCells相同。

Blanks

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

答案 1 :(得分:1)

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