excel - VBA 从一个单元格中选择值并放入另一个单元格

Question

我在工作表 1 上有我的数据，在工作表 2 上有我的按钮宏。基本上，当有人按下按钮时，我希望它在工作表 1 的单元格中取一个值并填充工作表 2 中的等效单元格。
例如
按钮 1 -> 在工作表 1 单元格 A1 中取值并放入工作表 2 单元格 A1
我当前的宏包含实际值

Sub SelectCell()

Range("L4").Value = ("200")
Range("L5").Value = ("80")
End Sub

Answer 1

克隆值

s - 来源，d - 目的地

代码将被复制到标准模块，例如Module1 .

假设您在目标工作表上有一个按钮，无论您在其上选择什么范围，按下按钮后，源工作表中的值都将被复制过来。还涵盖了多区域范围(例如 "A1,C3,E12" )。

代码

Option Explicit

Sub cloneValues()

    Const sName As String = "Sheet1"
    Const dName As String = "Sheet2"
    
    Dim wb As Workbook: Set wb = ThisWorkbook

    If TypeName(Selection) = "Range" Then
        If Selection.Worksheet Is wb.Worksheets(dName) Then
            Dim drg As Range
            For Each drg In Selection.Areas
                drg.Value = wb.Worksheets(sName).Range(drg.Address).Value
            Next drg
        End If
    End If

End Sub