|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
参与一下。。。
- Sub ykcbf() '//2024.3.27
- arr = Sheets("Sheet2").UsedRange
- ReDim brr(1 To 10000, 1 To 6)
- For i = 1 To UBound(arr)
- m = m + 1
- For j = 1 To 6
- brr(m, j) = arr(i, j)
- Next
- For j = 7 To UBound(arr, 2) Step 2
- If arr(i, j) <> Empty Then
- m = m + 1
- brr(m, 1) = arr(i, 1)
- brr(m, 2) = arr(i, 2)
- brr(m, 5) = arr(i, j)
- brr(m, 6) = arr(i, j + 1)
- End If
- Next
- Next
- With Sheets("Sheet3")
- .UsedRange.Clear
- With .[a1].Resize(m, 6)
- .Value = brr
- .Borders.LineStyle = 1
- .HorizontalAlignment = xlCenter '//列居中
- .VerticalAlignment = xlCenter
- End With
- End With
- MsgBox "OK!"
- End Sub
复制代码
|
评分
-
2
查看全部评分
-
|