Всем привет!
Есть вот такой макрос, который заполняет пустые ячейки из первой непустой ячейки. Беда в том, что он ломает форматы, можно ли допилить его так, чтобы он копировал не только значения, но и форматы?
Работает так: есть столбец, с данными, но данные не во всех ячейках, нужно скопировать первую ячейку, вставить ее значение с форматом до следующей заполненной ячейки ниже по строкам. Вот типа исходник:
0512154123 |
|
|
|
051215357415 |
|
|
41254456521 |
|
|
Должно получиться вот так, но на деле нолики впереди макрос съедает, вставляя значение в формате "Общий"
0512154123 |
0512154123 |
0512154123 |
0512154123 |
051215357415 |
051215357415 |
051215357415 |
41254456521 |
41254456521 |
41254456521 |
Код |
---|
Public Sub SetName()
Dim s As String
Dim pRange As Range
Set pRange = Application.Selection
For Each c In pRange
If Trim(c.Value) <> "" Then
s = Trim(c.Value)
Else
c.Value = s
End If
Next c
End Sub |