00问答网
所有问题
EXCEL VBA合并字符串
合并字符串
1...合并表1的CDEF列最后一个单元的内容到表2的B1
举报该问题
推荐答案 2015-06-27
sub xx()
dim arr, n
n=cells(4^8,3).end(3).row
arr=cells(n,3).resize(1,4)
[b1]=join(arr)
end sub来自:求助得到的回答
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://00.wendadaohang.com/zd/DTDITIBnnDjjBZTDenT.html
其他回答
第1个回答 2015-06-26
dim arr
arr=sheet1.range("c1:x1")
sheet2.range("b1")=join(arr)
追问
...合并表1的CDEF列最后一个单元
追答
是的,给出的代码就是完成你要的功能:
把数据取到数组里面,使用join完成合并。
本回答被网友采纳
相似回答
EXCEL VBA合并字符串
答:
sub xx()dim arr, nn=cells(4^8,3).end(3).rowarr=cells(n,3).resize(1,4)[b1]=join(arr)end sub
excel vba合并字符串
答:
Sub a()Dim rg As Range, str As
String
str = "A"For Each rg In ActiveSheet.Range("b5:e12") If rg <> "" Then str = str & Right(rg, 1)NextActiveSheet.Range("b1") = strEnd Sub
excel vba合并字符串
答:
Sub ss() Dim c As Range s = "出" For Each c In [b5:c6] For i = 2 To Len(c) If Characters(i, 1).Font.ColorIndex = xlAutomatic Then s = s & Mid(c, i, 1) End If Next Next [b1] = sEnd Sub ...
excel vba合并
第2
字符串
答:
Sub xx() Dim d As Object Set d = CreateObject("Scripting.Dictionary") s = "明" For Each c In [b5:i12] For i = 2 To Len(c) x = Mid(c, i, 1) d(x) = d(x) + 1 Next Next k = d.keys t = d.items For j = 0 To d....
大家正在搜
输入两个字符串合并字符串
Excel合并字符串
合并字符串
多个字符串合并成一个
将多个文本字符串合并成一个
字符串合并函数
excel两个字符串合并
c语言合并字符串
c语言合并两个字符串
相关问题
excel vba合并字符串
excel vba合并字符串
VBA编程合并一列Excel数据(几万条)中字符相同的行,比...
EXCEL 如何用函数 合并字符串,或者是其它办法
VBA 如何把一个数组里的值拼成一个字符串
Excel vba里怎么将字符串转换为数值?
excel vba 自动合并单元格
excel vba中关于多单元无同内容合并