天津VBA培训班

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)

然后

末端接头