Question

im试图创建一个代码，以帮助我将公式粘贴到一个范围内。

范围总是在变化，因为我每天必须在列表的en中加入信息

现有代码几乎完成了任务，但是6没有识别单元格a1上的值（要计算的记录数量），而是将信息粘贴到范围e1：k1上

Sub Run_Formulas()
'
' Run_Formulas Macro
'
 Dim As Variant

 x1 As Variant

 x1 = Worksheets("Raw Data").Range("A1")

'
Range("E4:K4").Select
    Selection.Copy
Range("E8" & ":" & "K" & "a1").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 
SkipBlanks _
    :=False, Transpose:=False
End Sub

我如何获取宏以识别单元格a1的内容并将其用于我的最终范围/

识别VBA中的单元格内容

0 个答案: