如何根据鼠标选中的单元格来提取该列中的文字

njwtg

老师好！


我想实现的程序思路是：
  先用鼠标选中 D 列的某个单元格时，执行程序，
  如果该单元格中有●，就将●和后面的文字提取到 I 列。比如选中D3单元格，I3单元格就变成”●小米。SDEW,46寸”

  同时判断选中单元格往下的所有单元格中，只要●后面的数据全部是”小米。SDEW,46寸”，也就将该数据提取到对应的I 列中

lcluck2002

提取●后面的文字1216.zip

njwtg

谢谢lcluck2002老师，你的程序是即时运行的，我的想法是先选中单元格，然后点击命令，程序就自动生成数据，同时当再次选中单元格并执行程序时，已经在I列生成的数据不被清除，仍保留。

gwjkkkkk

Sub TEST()
    Dim arr, i&, j&, Rng As Range, strTxt$, iStart&
    Set Rng = Selection
    If Rng.Count > 1 Then MsgBox "请选择单个单元格!": Exit Sub
    If Split(Rng.Address(, 0), "$")(0) <> "D" Then MsgBox "请选择D列!": Exit Sub
    If InStr(Rng, "●") Then
        strTxt = Mid(Rng, InStr(Rng, "●"))
        arr = Range([D1], Cells(Rows.Count, "D"))
        iStart = Val(Split(Rng.Address(, 0), "$")(1))
        For i = iStart To UBound(arr)
            If InStr(arr(i, 1), "●") Then
                If "●" & Split(arr(i, 1), "●")(1) = strTxt Then
                   If Cells(i, "D").Offset(, 5) = "" Then Cells(i, "D").Offset(, 5) = strTxt
                End If
            End If
        Next i
    End If
End Sub

gwjkkkkk

请楼主参考附件。。。