使用Selection.SpecialCells（xlCellTypeVisible）时未选中的单元会受到影响

Question

I have created a macro that adds a prefix to the current selection. It's pretty simple as you can see - it loops through visible cells in the selection. I added the .SpecialCells(xlCellTypeVisible) because it was affecting unintended cells when using filters.

Sub Prefix()

Dim rng As Range
Dim Prefix As String
Prefix = "P"

For Each rng In Selection.SpecialCells(xlCellTypeVisible)
    rng = Prefix & rng
Next rng

End Sub

As an example, assume that my data is Cells A1:A4 filled out like this:

Title
1
2
1

My problem occurs when I do the following:

1. Put an Autofilter on the range, and hide the '2' that is in A3
2. Select A2 (the first '1')
3. Run my macro

The problem is that instead of affecting only Cell A2 (the selected cell), it starts applying the prefix to the first row (A1:Z1 , etc.) until I cancel the macro. It will keep doing this to thousands of cells if I let it keep running.

This problem doesn't happen when my selection is multiple cells, or if I use Selection rather than Selection.SpecialCells(xlCellTypeVisible) , or if I apply the macro to one cell when nothing is being filtered out (hidden).

Does anyone have any ideas why the selection defaults to the whole spreadsheet when I only have one cell selected?
Alternatively, can anyone suggest a way to add prefixes like this using VBA?

I am aware that using an excel formula would alleviate the problem but that is not practical for me and regardless is not as fast as clicking a macro.

Answer 1

您可以使用“ Application.intersect”来确保获得所需的结果：

For each rng in Application.Intersect(Selection,ActiveSheet.Cells.SpecialCells(xlCellTypeVisible))

Answer 2

If you want this to work dynamically when you select a range of cells manually AND your intent is to just prepend the country code from the input box to the current value of the cell, then add the change event posted below to the code section of your worksheet and add the routine to a code module in the workbook.

Not sure why you are doing the replace of the minus sign, but you can add it to this code if needed.

Worksheet code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call AddPrefix(Target)
End Sub

Add a module and put this code in it.

Sub AddPrefix(rangeToPrefix)
    Dim cCell As Range
    Dim prefix As String
    prefix = InputBox("Enter your country code", "Set Country Code", +33)

    For Each cCell In rangeToPrefix.SpecialCells(xlCellTypeVisible)
        If Not IsEmpty(cCell) Then cCell.Value = prefix & cCell.Value
    Next cCell
End Sub