用于在一系列单元格中复制特定值的Vba代码

Question

我是宏新手，请帮我解决以下问题。

我在一张纸上有两列。第二列包含第一列的每个值的一组日期。我想拖动第一列中的值，直到第二列中有日期。第一列和第二列中的不同名称之间存在一行分隔。

Answer 1

如果您有两列数据，并希望将第一列中的值复制到第二列中的下一个值，则无需使用vba。

如果我理解正确，你有类似的东西

+--------+-------+
| Value1 | Date1 |
+--------+-------+
|        |       |
+--------+-------+
|        |       |
+--------+-------+
| Value2 | Date2 |
+--------+-------+

将公式=if(R[1]C[1]="",R[-1]C,"")放在第一列的空白单元格中，每个单元格都会Value1一直向下填充，只留下一行空行到下一个数据。

像这样：

+--------+-------+
| Value1 | Date1 |
+--------+-------+
| Value1 |       |
+--------+-------+
|        |       |
+--------+-------+
| Value2 | Date2 |
+--------+-------+

要填写所有需要的单元格，请使用this method。

如果需要进一步自动化，VBA can be used要使用公式填充空白行。