把职称复制到另外一个表

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.Val...
2017-11-12 / EXCEL编程VBA / 137 views浏览
阅读全文