请教宏高手：excel2007中用宏语句将公式"=?4"写入单元格"?5"(两处的可变列标"？"是相同的）里面。

来源：百度知道 编辑：UC知道 时间：2024/06/01 10:32:14
excel2007中用宏语句将公式"=?4"("?"为可变列标）写入单元格"?5"(这里的可变列标"?"与前面那个可变列标"？"是相同的）里面。被写如公式的单元格"?5"是"行5"里面从单元格"T5"起的从左至右的第一个纯空单元格。假设"?5"为"U5",就在"U5"里写入公式"=U4"；假设"?5"为"V5",就在"V5"里写入公式"=V4"；假设"?5"为"W5",就在"W5"里写入公式"=W4"；......依次类推。另外再补充两点：1,"行4"里面从单元格"T4"起的各个单元格里依次为数值2、3、6、15、12、8、2、5、...... 2,如果遇到"行4"里面从单元格"T4"起的从左至右的第一个纯空单元格时，则自动停止改程序的运行。渴望遇到高人指点，学生在此先道一声“谢谢”
抱歉，怪我前面没说清楚。我要的是：被写入公式的单元格只有一个，即"行5"里面从单元格"T5"起（包括单元格"T5"）的从左至右的第一个纯空单元格。另外一个必要条件：如果公式"=?4"引用的单元格"?4"为纯空单元格时，则该程序不能运行（或者说：前面某些程序运行到此自动结束）。非常感谢lxz1969老师的帮助。继续请教！！！

非常感谢lxz1969老师的帮助。更正您的一个小小的笔误：whiel应改为while

用以下代码可以：
Dim i As Integer
i = 20 '定义起始列标
do whiel Cells(5,i)<>""
i=i+1
loop
if Cells(4,i)<>"" then
Cells(5, i).FormulaR1C1 = "=R[-1]C"
end if

Cells(5, i).FormulaR1C1 = "=R[-1]C"