Excel工作表数据快完成时,工作表模版修改了,VBA快速修改之修改替换单元格数据。
1、同一工作薄指定工作表间数据的替换,将工作表所需替换位置与目标工作表目标位置放入数组,对应数组位置内容进行替换。
Function ReplaceA() '同一工作薄指定工作表间数据的替换
Dim ReplaceNR As String
Dim ReplaceCellY() As Variant
Dim ReplaceCellM() As Variant
Dim arrLength As Integer
Dim i As Integer
On Error Resume Next '代码出错时继续运行
Application.DisplayAlerts = False '防提示
ReplaceCellY = Array("A1", "B1", "C1")
ReplaceCellM = Array("A2", "B2", "C2")
arrLength