Замена значения ячейки значением другой ячейки находящейся в той же строки при условии, Если Значение Ячейки 13-го столбца не равно "" заменить Значение ячейки 1-го столбца той же строки.
Необходимо: При условии что в столбце 13 есть значение, заменить значение первой ячейки той же строки на значение столбца 13, этой же строки. Подскажите, пожалуйста как возможно это сделать. Заранее Спасибо.
Sub test()
Dim lrow&, i&
With Worksheets("TDSheet")
lrow = .Cells(.Rows.Count, 13).End(xlUp).Row
For i = 1 To lrow
If .Cells(i, 13).Value <> "" Then .Cells(i, 1).Value = Cells(i, 13).Value
Next i
End With
End Sub
"Все гениальное просто, а все простое гениально!!!"
Nordheim, Приветствую. Спасибо. Чувствую, что истина где-то рядом, но тямы не хватает осмыслить. Не работает. Вообще ни чего не происходит. Что только не делал и в свой текст вставлял... и пытался инструкции по языку почитать... (ещё хуже стало) Ни чего не понимаю. Не работает. Что я не понимаю? Почему не работает? ... даже не знаю как спросить-то... Мажет другие какие варианты?