Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/24.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba Excel宏-在工作表之间链接单元格_Vba_Excel - Fatal编程技术网

Vba Excel宏-在工作表之间链接单元格

Vba Excel宏-在工作表之间链接单元格,vba,excel,Vba,Excel,尝试使用宏将单元格从主工作表链接到其他工作表。使用宏记录后我得到 ActiveCell.FormulaR1C1 = "=Total!R[3]C[3]" ActiveCell.Offset(1, 0).Range("A1").Select 我想将总计工作表中的行增加3,使列保持不变。如果能帮我开始,那就太好了,谢谢 使用类似以下内容: Dim i As Long Dim cell As Range Set cell = ActiveCell For i = 3 To 30 Step 3 '

尝试使用宏将单元格从主工作表链接到其他工作表。使用宏记录后我得到

ActiveCell.FormulaR1C1 = "=Total!R[3]C[3]"
ActiveCell.Offset(1, 0).Range("A1").Select

我想将总计工作表中的行增加3,使列保持不变。如果能帮我开始,那就太好了,谢谢

使用类似以下内容:

Dim i As Long
Dim cell As Range

Set cell = ActiveCell

For i = 3 To 30 Step 3 ' change 300 to the relevant max num for you
    cell.FormulaR1C1 = "=Total!R[" & i & "]C[3]" ' you'll need to change/test this
    Set cell = cell.Offset(1, 0)
Next i