Question

我正在尝试创建一个按钮，该按钮将复制一系列公式并从所选单元格开始粘贴其值。

我的公式范围来自U1：EN1。我想将这些值粘贴到单击“获取新数据”按钮时选择的任何单元格的右侧。

以下是我到目前为止：

Sub Update_Quote_Data_5()
'
' Update_Quote_Data_5 Macro
'

'
    Range("U1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    ActiveWindow.LargeScroll ToRight:=-5
    Range("U9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("U10").Select
End Sub

Answer 1

您也可以尝试这样的事情......

Sub Update_Quote_Data()
Dim Rng As Range
Set Rng = Range("U1:EN1")
ActiveCell.Resize(1, Rng.Columns.Count).Value = Rng.Value
End Sub

Answer 2

从这开始：

Sub Update_Quote_Data_5_The_Sequel()
    Dim r1 As Range, r2 As Range
    Set r1 = Range("U1:EN1")
    Set r2 = ActiveCell
    r1.Copy
    r2.PasteSpecial xlPasteValues
End Sub

修改＃1：

要移至上一个ActiveCell下方的单元格：

Sub Update_Quote_Data_5_The_Sequel() Dim r1 As Range, r2 As Range Set r1 = Range("U1:EN1") Set r2 = ActiveCell r1.Copy r2.PasteSpecial xlPasteValues r2.Offset(1, 0).Select End Sub

复制一系列公式并将值粘贴到选定的行

2 个答案: