代码从工作表中查找值并将其复制到一个工作表。如果列完全为空,则会打印" NO ITEMS"。
我需要这样做,一旦完成复制项目,会在列中找到任何空白单元格" B" (StartSht,&#34 ; B")以及" C"的最后一个被占用单元格的范围up,用字符串" EMPTY"
填充任何想法我会怎么做?
它确实(1)我需要它做(2)
(1)
(2)
app
答案 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"