|
- Sub 按钮1_Click()
- Dim rng As Range, arr, k%, str$
- Set rng = Application.InputBox("请你选择要进行合并操作的区域", "请拉选区域:", , , , , , 8)
- If rng.Columns.Count <> 3 Then MsgBox "你选择的区域列数不是三列,操作将终止。或请联系作者QQ399457850修改代码": Exit Sub
- arr = rng
- For k = 1 To UBound(arr)
- If k > 1 And k Mod 5 = 1 Then str = str & Chr(10)
- str = str & arr(k, 1) & arr(k, 2) & arr(k, 3) & " "
- Next k
- Range("f1") = str
- With Range("f1:k5")
- .HorizontalAlignment = xlLeft
- .VerticalAlignment = xlTop
- .WrapText = True
- .MergeCells = True
- End With
- With Range("f1:k5").Font
- .Color = -16776961
- .TintAndShade = 0
- End With
- End Sub
复制代码 |
|