Вопросы Теги

Excel: Как использовать если в этой ситуации?

Я хотел бы сделать что-то как следующие функции рабочего листа использования.

If cell (A1 = "ABC"), 
       then append to the begin of the cell B1 "ABC:" 
       and
       delete cell A1 and cell B1 becames A1, C1 -> B1 and so on

   else 
       append "" (or do nothing) - because in cell B2 I have already information

Действительно ли это возможно? Или мне нужен VBA?

0
задан 24.07.2012, 23:48

1 ответ

По-видимому, Вы не можете сделать этого в Excel с помощью простое если оператор. Необходимо сделать это в VBA:

Public Sub StergeSTorOR()
Dim oRow As Range
Dim cell As Range
Dim i As Long, j As Long

    Application.ScreenUpdating = False

    For i = Selection(Selection.Count).Row To Selection.Cells(1, 1).Row Step -1

        For j = Selection(Selection.Count).Column To Selection.Cells(1, 1).Column Step -1

            If Cells(i, j).Value = "AB:" Or Cells(i, j).Value = "CD:" Then
                Cells(i, j + 1).Value = Cells(i, j).Value & Cells(i, j + 1).Value
                Cells(i, j).Delete shift:=xlShiftToLeft
                End If
        Next j
    Next i

    Application.ScreenUpdating = True
End Sub
1
ответ дан 24.11.2019, 12:16

Теги

Похожие вопросы