|
- Sub tt()
- arr = [a1].CurrentRegion
- ReDim brr(3 To UBound(arr), 1 To 60)
- For i = 3 To UBound(arr)
- If Len(arr(i, 1)) = 0 Then arr(i, 1) = arr(i - 1, 1) '考虑第一列合并单元格
- bm = arr(i, 1) '部门
- bm = Split(bm, Chr(10))(0) '去掉回车符
- bm = Split(bm, "(")(0) '去掉括号
- brr(i, 6) = bm '部门
- xm = arr(i, 2) '姓名
- brr(i, 4) = Left(xm, 1) '名
- brr(i, 2) = Mid(xm, 2) '姓
- brr(i, 32) = arr(i, 4) '电话1——旧直线
- brr(i, 33) = arr(i, 6) '电话2——旧分机
- brr(i, 36) = arr(i, 5) '单位主要电话——新分机
- brr(i, 41) = arr(i, 7) '移动电话——手机
- brr(i, 52) = arr(i, 8) '电子邮件
- Next
- Sheets("Outlook格式").Rows("2:65536").ClearContents
- Sheets("Outlook格式").[a2].Resize(i - 3, 60) = brr
- End Sub
复制代码 |
|