Excel 宏:用不同的值替换整个工作表

Excel 宏:用不同的值替换整个工作表

是否可以通过宏单击按钮用不同的值替换整个工作表?没有“用 Y 替换 X”或任何可识别的模式,我试图替换工作表中的所有值。

简单来说,我有两个图表,布局相同,但每个图表中的值完全不同。我希望用户能够在不同的图表之间切换在同一工作表上,每次用户切换图表时,图形都会自动更新到该图表。

答案1

这段简短的代码将用另一张表中相同单元格中的值替换活动表上的值:

Sub xFory()
Dim ows As Worksheet
Dim tws As Worksheet
Dim rng As String

Set ows = Sheets("Sheet1") 'Change to your destination sheet
Set tws = Sheets("Sheet2") ' change to your data sheet

rng = "A1:G12" ' Change to your range address

ows.Range(rng).Value = tws.Range(rng).Value

End Sub

编辑:稍微编辑了代码。

相关内容