|
可以合并成一个过程,只要再加个输入判断(按部门?按级别?)就行。
- Sub 部门()
- Dim s$, arr, i&
- s = InputBox("Please input sheet's name")
- arr = Sheets(s).[a1].CurrentRegion
- For i = 2 To UBound(arr)
- Sheets(arr(i, 6)).[a65536].End(3).Offset(1).Resize(, UBound(arr, 2)) = Application.Index(arr, i)
- Next i
- End Sub
- Sub 级别()
- Dim s$, arr, i&
- s = InputBox("Please input sheet's name")
- arr = Sheets(s).[a1].CurrentRegion
- For i = 2 To UBound(arr)
- Sheets(arr(i, 7)).[a65536].End(3).Offset(1).Resize(, UBound(arr, 2)) = Application.Index(arr, i)
- Next i
- End Sub
复制代码 |
|