能否将2个单元格用符号联起来

NadrsSaber

青青的河边草 发表于 2019-12-9 20:16
错误提示：语法错误

你在英文模式下输入。
这就是改成字符串呀，你想想咯。

大灰狼1976

1. Sub test()
   
2. Dim b As Range
   
3. Set b = [b1].End(xlDown).CurrentRegion
   
4. b.Offset(, 16) = Evaluate(b.Address & "&""*""&" & b.Offset(, 8).Address)
   
5. End Sub

复制代码

青青的河边草

大灰狼1976 发表于 2019-12-9 21:06

太好了，谢谢。

renkangjizhen

把[a1]换成[b3]或者[c3]

青青的河边草

大灰狼1976 发表于 2019-12-9 21:06

又要麻烦你，若结果假如是4*7，想改成7*4，代码怎么修改？

大灰狼1976

你的意思把两个区域的顺序颠倒一下？还是想把大的数字放在前面？
如果是后者，需要重写代码。

青青的河边草

我的意思是第一个。

青青的河边草

大灰狼1976 发表于 2019-12-10 20:10
你的意思把两个区域的顺序颠倒一下？还是想把大的数字放在前面？
如果是后者，需要重写代码。

是笫一个的意思。

大灰狼1976

改下面这句。

1. b.Offset(, 16) = Evaluate(b.Offset(, 8).Address & "&""*""&" & b.Address)

复制代码