把职称复制到另外一个表
0 个评论
Sub Macro1()
'
' Macro1 Macro
'
'
Dim a
Dim i
Dim j
Dim v1, v2 As String
Dim l1, l2
Dim m
Dim n
Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets(1) '表1
Set sh2 = Worksheets(2) '表2
For a = 1 To 10 '一次处理 表1 的 10行
i = Selection.Row
j = Selection.Column
v1 = Trim(Selection.Value) '去掉前后空白的...
阅读全文