怎么用VBA按列合并单元格内容

禁忌の双极 · 发表于 2023-7-4 16:46

如图，按列用逗号分隔开，达到期待结果这样，用VBA该如何实现

cidanji · 发表于 2023-7-4 16:57

Range("B3") = Join(Application.Transpose(Range("A3:A" & Cells(Rows.Count, 1).End(3).Row)), ",")

复制代码

cidanji · 发表于 2023-7-4 16:57

Range("B3") = Join(Application.Transpose(Range("A3:A" & Cells(Rows.Count, 1).End(3).Row)), ",")

复制代码

cidanji · 发表于 2023-7-4 17:02

纯代码回复不了吗
Range("B3") = Join(Application.Transpose(Range("A3:A" & Cells(Rows.Count, 1).End(3).Row)), ",")

n619804100 · 发表于 2023-7-4 17:15

加个辅助列，PHONETIC(A3:B13)

f8b1987 · 发表于 2023-7-4 17:24

高版本中，TEXTJOIN可以满足你需求

ykcbf1100 · 发表于 2023-7-4 17:41

VBA解法。。。

gwjkkkkk · 发表于 2023-7-4 18:58

[B3].Value = Join(Application.Transpose(Range("A3", Cells(Rows.Count, "A").End(3))), ",")

复制代码

于箱长 · 发表于 2023-7-4 19:11

ykcbf1100 发表于 2023-7-4 17:41
VBA解法。。。

i=1

ykcbf1100 · 发表于 2023-7-4 20:33

于箱长发表于 2023-7-4 19:11
i=1

被你看出来了？

		自动登录	找回密码
密码			免费注册

[求助] 怎么用VBA按列合并单元格内容