改一下
Dim aa1() As String = {"日期","分户快报","资产负债表","利润及分配表","费用表","附列资料","工资月报","茂名快报","分单位","资产负债指标表","利润及相关指标表"}
Dim Ws(aa1.Length) As MSExcel.WorkSheet
For i1 As Integer = 1 To 11
Ws(i1) = Wb.WorkSheets(aa1(i1-1))
Next
ws(1).cells(4,4) = cj.text
ws(1).cells(7,4) = cj.text
rg1 = ws(3).cells(14,5)
rg2 = ws(3).cells(15,9)
rg3 = ws(4).cells(23,5)
rg4 = ws(4).cells(31,5)
rg5 = ws(5).cells(32,5)
rg1.value = rg1.value - vars("tx1")
rg2.value= rg2.value - vars("tx1")
rg3.value = rg3.value- vars("tx2")
rg4.value= rg4.value- vars("tx2")
rg5.value= rg5.value- vars("tx2")
For i1 As Integer = 1 To 11
ws(i1).UsedRange.Formula = ws(i1).UsedRange.Formula
Next