Здравствуйте! Ищу возможность как перенести содержимое нескольких разбросанных ячеек из нескольких столбцов в один, с сохранением порядка строк. У нужных ячеек есть общая часть - FFFFF. Такая ячейка одна в строке
В сети нашел вариант решения моей задачи, человеку предложили такой макрос:
[vba]
Код
Sub Find_All() Dim FindRange As Range, c As Range Dim OutColumn As String, x As Long 'Column Where we put the data, change to suit OutColumn = "Z" x = 1 For Each c In ActiveSheet.UsedRange If c.Font.Color = RGB(255, 0, 0) Then If FindRange Is Nothing Then Set FindRange = c Else Set FindRange = Union(FindRange, c) End If End If Next
If Not FindRange Is Nothing Then For Each c In FindRange Cells(x, OutColumn) = c.Address Cells(x, OutColumn).Offset(, 1) = c.Value x = x + 1 Next End If
Для его работы я форматирую нужные ячейки в красный текст через найти-заменить-формат. Макрос в принципе работает у меня, но только наполовину, т.е. нужные ячейки находит, но в целевом столбце он показывает только ссылки на них (формата S$12$), и они почему-то располагаются со смещением на пару строк.
Помогите пожалуйста
Здравствуйте! Ищу возможность как перенести содержимое нескольких разбросанных ячеек из нескольких столбцов в один, с сохранением порядка строк. У нужных ячеек есть общая часть - FFFFF. Такая ячейка одна в строке
В сети нашел вариант решения моей задачи, человеку предложили такой макрос:
[vba]
Код
Sub Find_All() Dim FindRange As Range, c As Range Dim OutColumn As String, x As Long 'Column Where we put the data, change to suit OutColumn = "Z" x = 1 For Each c In ActiveSheet.UsedRange If c.Font.Color = RGB(255, 0, 0) Then If FindRange Is Nothing Then Set FindRange = c Else Set FindRange = Union(FindRange, c) End If End If Next
If Not FindRange Is Nothing Then For Each c In FindRange Cells(x, OutColumn) = c.Address Cells(x, OutColumn).Offset(, 1) = c.Value x = x + 1 Next End If
Для его работы я форматирую нужные ячейки в красный текст через найти-заменить-формат. Макрос в принципе работает у меня, но только наполовину, т.е. нужные ячейки находит, но в целевом столбце он показывает только ссылки на них (формата S$12$), и они почему-то располагаются со смещением на пару строк.