[已解决]如何通过按钮将不同列单元格中内容合并填入一个单元格中

godnes

通过“确定”按钮，将B、C、D三列中的内容合并，
依按顺序填入一个单元格中，并且4个内容后换一次行。
得到单元格中的内容是文本不是公式。

不好意思格式写错了，麻烦大侠们重新下载。谢谢！

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-6-17 22:28

楼主：是不是想要这样的？见附件！

跳转到最佳答案楼层

ligh1298

楼主：是不是想要这样的？见附件！

ligh1298

以下是代码

1. Sub 按钮1_Click()
   
2. Dim i%, rn$, arr()
   
3. Cells(1, "l").ClearContents
   
4. arr = Range("a7:d" & [b65536].End(3).Row)
   
5. For i = 1 To UBound(arr)
   
6. rn = rn & " " & arr(i, 2) & arr(i, 3) & arr(i, 4)
   
7. If i Mod 4 = 0 Then
   
8. rn = rn & " " & arr(i, 2) & arr(i, 3) & arr(i, 4) & Chr(10)
   
9. End If
   
10. Next
    
11. Cells(1, "l") = rn
    
12. End Sub

复制代码

wp8680

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

复制代码

godnes

大侠们不好意思，格式我写错了。须要的格式,已更新在1楼文件中。{:301:}

godnes

单位为Q的充值点数值是4位数，不为Q的充值点数就是5位数。不足4或5位的点数前面补0