|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
'你们这工作做得已经晚了,怪不得现在这么多人
'以"企业员工情况登记表-1人一张表"工作表为母表,,,
Option Explicit
Sub test()
Dim arr, i, j, pos, sht
pos = Split(",,b4,f4,i4,b5,g5,b6,g6,b11,c11,d11,e11,g8,d14,f14,h14,i14,i15,b16,f16,b18,f18,b19,f19,b20,f20", ",")
Call doevent(False)
With Sheets("信息汇总表")
arr = .Range("a3:z" & .Cells(Rows.Count, "b").End(xlUp).Row)
End With
For Each sht In Sheets
If sht.Name <> "信息汇总表" And sht.Name <> "企业员工情况登记表-1人一张表" Then sht.Delete
Next
For i = 1 To UBound(arr, 1)
If Len(arr(i, 2)) Then
Sheets.Add
With ActiveSheet
.Name = arr(i, 2)
Sheets("企业员工情况登记表-1人一张表").Cells.Copy .[a1]
For j = 2 To UBound(pos)
.Range(pos(j)) = arr(i, j)
Next
End With
End If
Next
Call doevent(True)
End Sub
Function doevent(flag As Boolean)
With Application
.DisplayAlerts = flag
.ScreenUpdating = flag
End With
End Function |
评分
-
2
查看全部评分
-
|