是否可以通过宏单击按钮用不同的值替换整个工作表?没有“用 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
编辑:稍微编辑了代码。