Dim WB作為工作簿,YN作為布爾型
Dim Hzsht,Tjsht作為工作表
Dim RowHz,RowTj壹樣長
對於工作簿中的每個WB
如果WB。Name = "form tianjin.xls xls "然後
YN =正確
為...退出
如果…就會結束
然後
如果YN =假,那麽工作簿。打開此工作簿。路徑與路徑。”\來自天津。xls "
對於i = 1到3
Set Hzsht = Workbooks("表摘要。xls”)。床單(壹)
設置Tjsht = Workbooks ("form天津。xls”)。床單(壹)
RowHz = Hzsht。UsedRange.Rows.Count
RowTj = Tjsht。UsedRange.Rows.Count
Tjsht。rows(" 2:" & amp;RowTj)。復制Hzsht。範圍(" A " & ampRowHz + 1)
然後
末端接頭