从同一工作表复制单元格值答案

【问题标题】：Copy cell values from the same worksheet从同一工作表复制单元格值
【发布时间】：2022-06-14 01:25:37
【问题描述】：

我正在尝试从同一个工作表中复制单元格值。它只会粘贴三个值中的一个。

Sheets("Median_make").Select
    Range("B3").Copy
    Range("H4").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("Median_make").Select
    Range("E3").Copy
    Range("K4").PasteSpecial xlPasteValues
Sheets("Median_make").Select
    Range("D3").Copy
    Sheets("Median_make").Range("J4").PasteSpecial xlPasteValues
Application.CutCopyMode = False

【问题讨论】：

Sheets("Median_make").Range("H4").Value = Sheets("Median_make").Range("B3").Value。直接赋值，不用复制粘贴。
大多数时候你也不需要使用Select。我建议你阅读how to avoid using Select

标签： excel vba

【解决方案1】：

以下代码将执行您的要求，并且根本不需要您选择工作表：

With Sheets("Median_make")
    .Range("H4").Value = .Range("B3").Value
    .Range("K4").Value = .Range("E3").Value
    .Range("J4").Value = .Range("D3").Value
End With

【讨论】：