excel - 合并重复行并添加数量

Question

我正在使用以下代码行。而不是我必须突出显示范围。有没有可以选择我的数据范围的代码？我被卡在粗体的代码行上。我希望自动选择范围。

Sub MyEnterEvent()

   Set R = Application.Selection
    **Set R = Application.InputBox("select one Range:", "CombineDuplicateRowsAndSum", R.Address, Type:=8)**
    Set Dic = CreateObject("Scripting.Dictionary")
    arr = R.Value
    For i = 1 To UBound(arr, 1)
        Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 3)
    Next
    R.ClearContents
    R.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
    R.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
    Application.ScreenUpdating = True

End Sub

标签： excelvbaduplicatesrows