连接excel中当前行的特定字段

时间:2017-03-11 02:46:01

标签: excel vba excel-vba

是否可以在工作表中放置一个单元格,它所做的只是连接我正在处理的行的某些字段?

示例:

A2单元格显示row 4单元格C4 and E4的连接值(这是我目前正在处理的行)。如果我开始处理row 5,则A2单元格将显示C5 and E5个单元格的连接值。等等...

这里有一个gif,可以直观地看到我需要的东西......

enter image description here

1 个答案:

答案 0 :(得分:1)

是的,您可以使用Worksheet SelectionChange事件来完成。在下面学习我的代码......!

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Range
    Dim myRange As Range: Set myRange = Range("A1")
    Const sumRow = 3

    Set r = Range(Target.Offset(0, 1).Address & ":" & Target.Offset(0, sumRow).Address)

    myRange = conCatRangeValue(r)
End Sub

Private Function conCatRangeValue( _
    targetRange As Range, _
    Optional ByVal sep As String = " ") As String

    Dim r As Range
    Dim result As String
    For Each r In targetRange
        result = result + sep + r.Value
    Next r

    conCatRangeValue = result
End Function

尝试并修改它以满足您的需求。