Question

excel vba复制多个单元内容到同一个单元格内

例：b2:k2这个范围的内容分别复制到b22单元中
如：b2=个 c2=的 d2=这 e2=范 f2=围 g2=分 h2=别 i2=制 j2=到 k2=单
b22=把握%g下是旧金山于h
将b2:k2这个范围每一个单元内容复制到b22每一个字符后面,并将所复制的内容用<>号，引起来，
遇到%号是，此位置省略。
我要的结果是：b22=把<个>握<的>%g<这>下<范>是<围>旧<分>金<别>山<制>于<到>h<单>

Answer 1

Sub test()
'变量a代表的是%出现的次数
Dim a
a = 0
    For i = 1 To Len(Cells(2, 1).Value)
        If Mid(Cells(2, 1).Value, i, 1) = "%" Then
            Range("A3").Value = Range("A3").Value & "%"
            a = a + 1
        Else
            Range("A3").Value = Range("A3").Value & Mid(Cells(2, 1).Value, i, 1) & "<" & Cells(1, i - a).Value & ">"
        End If
    Next
End Sub

有什么不懂的欢迎追问，满意请及时采纳。

Answer 2

temp = ""
j = 2
For i = 1 To Len([b22])
If Mid([b22], i, 1) = "%" Then
temp = temp & Mid([b22], i, 1)
Else
temp = temp & Mid([b22], i, 1) & "<" & Cells(2, j) & ">"
j = j + 1
End If
Next
[B22] = temp

Answer 3

B22=phonetic(B2:K2)

追问

我要的是分别插入到各个字符后面，并加上符号，特殊符号后面不能加入

追答

如果要直接在B22达到这个效果，非VBA不可

追问

用VBA
我要的是分别插入到各个字符后面，并加上符号，特殊符号后面不能加入