|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub test0()
- Dim ar, br() As String, cr, i As Long, j As Long
- With Worksheets(1)
- ar = .Range("B1:D1", .Range("B1:D1").End(xlDown)).Value
- End With
- ReDim br(1 To UBound(ar), 0)
- cr = Array(4, 3, 3)
- For i = 1 To UBound(ar)
- For j = LBound(cr) To UBound(cr)
- br(i, 0) = br(i, 0) & Mid(ar(i, j + 1), cr(j), 1)
- Next
- Next
- With Worksheets(2).Range("B1")
- .Resize(Rows.Count - .Row).ClearContents
- .Resize(UBound(br)).Value = br
- End With
- Beep
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|