VBA实现鼠标选中单个单元格的值或多个单元格的值，显示到单个单元格或多个单元格中

'功能说明：选择A1~B21区域任意范围，如果选择的不为空，则依次将值写到C列中
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("C:C").Clear
    Dim r, c, i As Integer
    r = Target.Row
    c = Target.Column
    i = 1
    If r < 21 And c < 2 Then
        For Each v In Target
            If v <> "" Then
                Range("C" & i) = v
                i = i + 1
            End If
        Next
    End If
End Sub

追问

我想做到，当鼠标选中sheet1 A3：A6中的值时   对应表格sheet2 A3：A6显示鼠标选中的值,单选和多选，都可以，请问是否能做到



追答Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 Then    '限定在A列

        Sheets("Sheet2").Range("A:A").Clear

        Dim r1, r2, i As Integer

        r1 = Target.Row

        r2 = Target.Rows.Count + r1 - 1

        For i = r1 To r2

            Sheets("Sheet2").Range("A" & i) = Range("A" & i)

        Next i

    End If

追问

你好 显示下标越界了

追答

你是不是没有sheet2这个名称的表，如果是，请把sheet2改为相应的名称即可。

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/efy3r2xvxfj327rjfy.html