Как записать положение ячейки (не пусто) и запустить макрос для каждого из них

Question

Привет всем, я не смог написать что-либо, как описано в заголовке после исследования вокруг inte rnet для abit. Но есть ли способ записать положение ячейки (не уверен, правильно ли я ее описываю) для тех ячеек, которые не являются пустыми / пустыми, а затем запустить макрос ONLY для каждой из этих ячеек; независимо от того, были ли они сдвинуты или нет? Например (как на скриншоте), если A1, A3 и A5 не пустые, то запускайте marco только для этих ячеек ДАЖЕ , если некоторые из них сдвинуты к A4 или A8 позже. Итак, короче говоря, мне действительно нужно, чтобы макрос запускался только в этих ячейках, ЕСЛИ он не пустой / пустой.

Answer 1

Вот необработанная структура кода, который вы ищете. Адаптируйте его к своему проекту по своему усмотрению и расширьте его функциональные возможности по мере необходимости.

Sub SkipBlanks()

    Dim Rl As Long                      ' last row
    Dim Tmp As Variant
    Dim R As Long                       ' row counter

    With Worksheets("Sheet1")           ' modify to suit
        Rl = .Cells(.Rows.Count, "A").End(xlUp).Row
        ' work on column A
        For R = 2 To Rl                 ' start the loop in row 2
            Tmp = .Cells(R, "A").Value
            If Len(Tmp) Then
                MsgBox "Cell " & Cells(R, "A").Address(0, 0) & _
                       " has the value """ & Tmp & """.", _
                       vbInformation, "Test report"
            End If
        Next R
    End With
End Sub

Для быстрого теста добавьте два или 3 значения в случайных местах столбца A и запустите код.