VBA проблема при отображении значений

Question

Я создал макрос Excel. Существует два столбца Частота выполнения и день недели.

Столбец частоты выполнения имеет 3 значения D, M и W для ежедневного, еженедельного и ежемесячного соответственно. И поле дня недели заполняется, если в столбце частоты выполнения выбрано W.

Значение дня недели равно 'NA' для ежемесячного и ежедневного, и если я изменяю частоту выполнения с ежедневного / ежемесячного на еженедельный, поле дня недели изменится на пробелы с 'NA'

Существует кнопка повтора строки, которая просто повторяет строку на основе введенного нами номера строки.

Моя проблема в том, что, когда я использую кнопку повтора строки, для строки, где частота выполнения еженедельно, день столбца неделя для обоих строк установлена ​​черной.

Так есть ли способ сохранить значение дня недели.

Я написал следующий код:

If Not Intersect(Target,Range("A2:A2000")) Is Nothing Then
     RowReformat = ActiveCell.Row

      Select Case Target.Value
         Case "W"

            Worksheets("input").Cells(RowReformat,2).Value = " "

        Case "M"

           Worksheets("input").Cells(RowReformat,2).Value = " NA"

        Case "D"
          Worksheets("input").Cells(RowReformat,2).Value = " NA"

       Case " "
    End Select
End If

Answer 1

If Not Intersect(Target, Range("A2:A2000")) Is Nothing Then
     RowReformat = ActiveCell.Row

      Select Case Target.Value
         Case "W"

            Worksheets("input").Cells(RowReformat, 2).Value = Target.Offset(0, 1).Value

        Case "M"

           Worksheets("input").Cells(RowReformat, 2).Value = " NA"

        Case "D"
          Worksheets("input").Cells(RowReformat, 2).Value = " NA"

       Case " "
    End Select
End If

Не проверено - но вы можете попытаться использовать смещение, чтобы получить значение ячейки рядом с вашей целью (предполагается, что ваш день недели находится в столбце B, если не скорректировать смещение соответствующим образом)