小编Moh*_*ien的帖子

我有一个关于在我的工作表中的特定单元格内显示 Selection 值的问题。（我们现在称其为 J1）因此，如果用户拖动选择（通过鼠标）A1,A2,A3,A4。J1value 将显示"A1:A4"，然后使用一些 VBA 代码连接这些单元格以显示由“;”分隔的单元格值。问题是，当用户选择不按顺序的单元格（通过按住 CTRL）时， Like A1,A5,A11。J1value 将"A1,A5,A11"在我连接时显示，它会给出“#VALUE”错误。

我们可以用单元格值替换这里的每个单元格引用吗？并按原样保留两者之间的“逗号”。然后我们可以用Subtitute逗号“;”

如果我的问题看起来有点无知，请见谅:)

我的选择代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Dim s As String
Set rng = Application.Selection
If rng.Count < 2 Then
Range("H1").Value = Cells(Target.Row, Target.Column).Value
Else
Range("H1").Value = rng.Address
End If     
End Sub

连接代码：

Function ConcatenateRange(ByVal cell_range As Range, _
                    Optional ByVal seperator As String) As String

Dim cell As Range …