Question

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

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

填充

任何想法我会怎么做？

它确实（1）我需要它做（2）

（1）

enter image description here

（2）

enter image description here

app

Answer 1

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

Blanks

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

Answer 2

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

VBA - 找到空单元格，设置等于＆＃34; EMPTY＆＃34;

2 个答案: