EXCEL VBA 文本合并问题
答案:2 悬赏:30 手机版
解决时间 2021-04-04 11:50
- 提问者网友：动次大次蹦擦擦
- 2021-04-04 01:29
EXCEL VBA 文本合并问题
最佳答案
- 五星知识达人网友：雪起风沙痕
- 2021-04-04 02:45
不要使用单引号，修正程序代码：
Sub 合并()
Dim ExtraNum1 As Long, ExtraNum2 As Long, ExtraNum3 As Long
ExtraNum1 = ActiveSheet.Range("B1").Value
ExtraNum2 = ActiveSheet.Range("B2").Value
ExtraNum3 = ActiveSheet.Range("B3").Value
ActiveSheet.Range("K5").Value = ExtraNum1 & "|" & ExtraNum2 & "|" & ExtraNum3
ActiveSheet.Range("K6:K" & 8).FormulaR1C1 = "=RC&""|""&RC2&""|""&RC3&""|""&RC4&""|""&RC5&""|""&RC6&""|""&RC7&""|""&RC8&""|""&RC9&""|""&RC10"
End Sub示例：
Sub 合并()
Dim ExtraNum1 As Long, ExtraNum2 As Long, ExtraNum3 As Long
ExtraNum1 = ActiveSheet.Range("B1").Value
ExtraNum2 = ActiveSheet.Range("B2").Value
ExtraNum3 = ActiveSheet.Range("B3").Value
ActiveSheet.Range("K5").Value = ExtraNum1 & "|" & ExtraNum2 & "|" & ExtraNum3
ActiveSheet.Range("K6:K" & 8).FormulaR1C1 = "=RC&""|""&RC2&""|""&RC3&""|""&RC4&""|""&RC5&""|""&RC6&""|""&RC7&""|""&RC8&""|""&RC9&""|""&RC10"
End Sub示例：
全部回答
- 1楼网友：过活
- 2021-04-04 02:59
最后一句不知道你想要什么，且lLasRow不知道是什么东东。
ActiveSheet.Range("K5").Value = ExtraNum1 & "|" & ExtraNum2 & "|" & ExtraNum3
你应该清楚，变量已经定义了，就可以直接使用，不用引号引起来的；然后文本直接的连接是用 &，其文本要用英文双引号。
ActiveSheet.Range("K5").Value = ExtraNum1 & "|" & ExtraNum2 & "|" & ExtraNum3
你应该清楚，变量已经定义了，就可以直接使用，不用引号引起来的；然后文本直接的连接是用 &，其文本要用英文双引号。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯