去掉C列相邻数据间的空格，在D列予以依次合并显示

玉阳山人

去掉C列相邻数据间的空格，在D列予以依次合并显示.zip (13.74 KB, 下载次数: 21)

2019-11-26 08:47 上传

点击文件名下载附件

去除数据源C列中各数字中间的空格，并按原先后顺序在D列里予以合并显示。

求老师们用VBA写出操作过程。

wodewan

=SUBSTITUTE(C5," ","")

玉阳山人

wodewan 发表于 2019-11-26 09:06
=SUBSTITUTE(C5," ","")

D5 =IF(C5="","",SUBSTITUTE(C5," ",))

函数公式我会写。只是不会用VBA代码编写得出如D列显示的模拟结果，才求助于老师们的。

wodewan

Sub test()
Dim ar, r&, i&, rng As Range
r = Range("c" & Rows.Count).End(xlUp).Row
Set rng = Range("c5:d" & r)
ar = rng
For i = 1 To UBound(ar)
    ar(i, 2) = Join(Split(ar(i, 1), " "), "")
Next
rng.NumberFormatLocal = "@"
rng = ar
End Sub

玉阳山人

wodewan 发表于 2019-11-26 09:17
Sub test()
Dim ar, r&, i&, rng As Range
r = Range("c" & Rows.Count).End(xlUp).Row

这么复杂啊？！我还以为是三两句代码就能实现的。谢谢老师！

stonelee2018

Sub demo()
Dim i As Integer, arr
arr = Range("b6").CurrentRegion
Range("b:d").NumberFormatLocal = "@"
For i = 2 To UBound(arr)
  Cells(i + 4, 3) = Application.WorksheetFunction.Substitute(arr(i, 1), " ", "") & arr(i, 2)
Next
End Sub

玉阳山人

stonelee2018 发表于 2019-11-26 09:28
Sub demo()
Dim i As Integer, arr
arr = Range("b6").CurrentRegion

没有5楼的代码好懂。麻烦老师逐句详细解释一下好吗？

玉阳山人

stonelee2018 发表于 2019-11-26 09:28
Sub demo()
Dim i As Integer, arr
arr = Range("b6").CurrentRegion

为什么设置从B6开始？

stonelee2018

Sub demo()
Dim i As Integer, arr
arr = Range("b6").CurrentRegion
Range("b:d").NumberFormatLocal = "@"           '这行让B列到D列都设成文本格式
For i = 2 To UBound(arr)
  Cells(i + 4, 3) = Application.WorksheetFunction.Substitute(arr(i, 1), " ", "") & arr(i, 2)   '这行就等于先替换B列的空格，然后用B&D，最后赋值给D列
Next
End Sub
评分

玉阳山人

stonelee2018 发表于 2019-11-26 09:28
Sub demo()
Dim i As Integer, arr
arr = Range("b6").CurrentRegion

老师：您写的代码是什么呀？根本实现不了我的要求：

去除数据源C列中各数字中间的空格，并按原先后顺序在D列里予以合并显示。