发布网友 发布时间:2022-04-25 07:29
共3个回答
热心网友 时间:2023-11-06 20:52
如果是2016版本以下没有textjoin函数的,插入下列程序代码
'自定义公式-按ALT+11-插入-模块(TEXTJION函数)
Function textjoin(b As String, a As Range)
For Each cel In a
If cel <> "" Then p = p & b & cel
Next
textjoin = Mid(p, Len(b) + 1)
End Function
热心网友 时间:2023-11-06 20:52
在A2单元格输入公式:
=Sheet3!A2&""
复制并下拉即可
热心网友 时间:2023-11-06 20:53
可以用代码的工作表事件来完成的。
热心网友 时间:2023-11-06 20:52
如果是2016版本以下没有textjoin函数的,插入下列程序代码
'自定义公式-按ALT+11-插入-模块(TEXTJION函数)
Function textjoin(b As String, a As Range)
For Each cel In a
If cel <> "" Then p = p & b & cel
Next
textjoin = Mid(p, Len(b) + 1)
End Function
热心网友 时间:2023-11-06 20:52
在A2单元格输入公式:
=Sheet3!A2&""
复制并下拉即可
热心网友 时间:2023-11-06 20:53
可以用代码的工作表事件来完成的。
热心网友 时间:2023-11-06 20:52
如果是2016版本以下没有textjoin函数的,插入下列程序代码
'自定义公式-按ALT+11-插入-模块(TEXTJION函数)
Function textjoin(b As String, a As Range)
For Each cel In a
If cel <> "" Then p = p & b & cel
Next
textjoin = Mid(p, Len(b) + 1)
End Function
热心网友 时间:2023-11-06 20:52
如果是2016版本以下没有textjoin函数的,插入下列程序代码
'自定义公式-按ALT+11-插入-模块(TEXTJION函数)
Function textjoin(b As String, a As Range)
For Each cel In a
If cel <> "" Then p = p & b & cel
Next
textjoin = Mid(p, Len(b) + 1)
End Function
热心网友 时间:2023-11-06 20:52
在A2单元格输入公式:
=Sheet3!A2&""
复制并下拉即可
热心网友 时间:2023-11-06 20:53
可以用代码的工作表事件来完成的。
热心网友 时间:2023-11-06 20:52
在A2单元格输入公式:
=Sheet3!A2&""
复制并下拉即可
热心网友 时间:2023-11-06 20:53
可以用代码的工作表事件来完成的。
热心网友 时间:2023-11-06 20:52
如果是2016版本以下没有textjoin函数的,插入下列程序代码
'自定义公式-按ALT+11-插入-模块(TEXTJION函数)
Function textjoin(b As String, a As Range)
For Each cel In a
If cel <> "" Then p = p & b & cel
Next
textjoin = Mid(p, Len(b) + 1)
End Function
热心网友 时间:2023-11-06 20:52
在A2单元格输入公式:
=Sheet3!A2&""
复制并下拉即可
热心网友 时间:2023-11-06 20:53
可以用代码的工作表事件来完成的。