两列数据怎么合并起来

ryoryo66

我想把B:C两列数据按每行合并起来,保留数据,并且是文本格式.
请问这个代码要怎么写啊?谢谢老师.

yaozong

合并函数

'=PHONETIC(B1:C1)

lijian318

1. =B1&C1

复制代码

lijian318

Private Sub CommandButton1_Click()
Dim arr, brr
arr = [b1].CurrentRegion
ReDim brr(1 To UBound(arr))
For a = 1 To UBound(arr)
brr(a) = arr(a, 1) & arr(a, 2)
Next
[h1].Resize(UBound(brr)).NumberFormatLocal = "@"
[h1].Resize(UBound(brr)) = Application.Transpose(brr)
End Sub

ryoryo66

lijian318 发表于 2019-6-16 14:51
Private Sub CommandButton1_Click()
Dim arr, brr
arr = .CurrentRegion

谢谢老师,我是想把值返回到B列,并把C列清空,
是否是这样修改:
Next
[b1].Resize(UBound(brr)).NumberFormatLocal = "@"
[b1].Resize(UBound(brr)) = Application.Transpose(brr)
[c1].Resize(UBound(brr)).Clear

lijian318

ryoryo66 发表于 2019-6-16 14:58
谢谢老师,我是想把值返回到B列,并把C列清空,
是否是这样修改:
Next

恩恩，对的。返回到B列的话[b1].Resize(UBound(brr)).NumberFormatLocal = "@"这句可以删了。

ryoryo66

lijian318 发表于 2019-6-16 15:00
恩恩，对的。返回到B列的话.Resize(UBound(brr)).NumberFormatLocal = "@"这句可以删了。

好的,非常感谢!

lsc900707

ryoryo66 发表于 2019-6-16 15:05
好的,非常感谢!

不需要转置，直接：

1. Private Sub CommandButton1_Click()
   
2.     arr = [b1].CurrentRegion
   
3.     For i = 1 To UBound(arr)
   
4.         arr(i, 1) = arr(i, 1) & arr(i, 2)
   
5.         arr(i, 2) = ""
   
6.     Next
   
7.      [b1].CurrentRegion = arr
   
8. End Sub

复制代码

ryoryo66

lsc900707 发表于 2019-6-16 15:33
不需要转置，直接：

感谢老师,怎么前面A列加入内容后,就把A和B列合并起来了,C列就不动了?

ryoryo66

lsc900707 发表于 2019-6-16 15:33
不需要转置，直接：

可以了,上面那位老师的我改不好,你的我改过了.
    arr = [b1].CurrentRegion
    For i = 1 To UBound(arr)
        arr(i, 2) = arr(i, 2) & arr(i, 3)
        arr(i, 3) = ""
    Next
     [b1].CurrentRegion = arr

非常感谢!