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

Question

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

Sub SelectCell()

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

标签： excelvba

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