соотнесение значений массивов

[Bape}l{ka]

подскажите пожалуйста как лучше сделать!

есть таблица, в которой части имен колонок повторяются



надо: получить часть названия столбца, где нет ответа (), и загнать ее в массив
и я что-то не соображу, как составить этот массив Т_Т

моя идея: 1 - собрала массив BrandKode из данных по столбцам
2 - есть массив из нужных названий
3 - теперь их соотношу см. в коде, и ТУТ ОШИБКА подскажите, плз, что не правильно, как написать???

'Заполняем массив BrandName названиями марок
BrandName(1)  = "_БРАЕР"
BrandName(2)  = "_ВЕРХНЕВОЛЖ_К_З"
BrandName(3)  = "_ВИНЕРБЕРГЕР"
BrandName(4)  = "_ВОРОНЕЖ_К_З"
    
    For j = 1 To 4 Step 1
        If BrandKode(j) = "" Then
            BrandName(j) = ""
        Else
            BrandName (j)       'ТУТ РУГАЕТСЯ    т_т
        End If
    Next j

[EducatedFool]

Из вашего описания ничего не понял.
Неужели сложно прикрепить файл с несколькими строками исходных данных,
и показать, что нужно получить в итоге (зачем вы пишете этот макрос)?

[Bape}l{ka]

макрос для того, чтобы получить части имен колонок, найти потом в книге другие колонки, содержащие в себе такие части и скрыть их, вот фух О.о
как найти и скрыть, я уже сделала, осталось эти части названий колонок выделить. Вот файл:

пример.rar

только что возникла идея, проименовать ячейки уже так как мне нужно, и использовать потом просто эти имена, но у меня не получается обратиться к имени этой ячейки.
Возвращает ее адрес!! но не имя, которое я ей дала Т_Т подскажите, как к имени ячейки обратиться?

Sub t()
Dim nn As String

    ActiveSheet.Range("A1").Name = "фигня"
    'Range("A1").Name.Visible = False
    nn = ActiveWorkbook.ActiveSheet.Cells(1, 1).Name 
    MsgBox nn
End Sub

[doober]

ActiveSheet.Range("A1").Name = "фигня"

Это в десятку.
Я все время считал,что имя добавляется через Names.Add
Запишите макрорекодером,и все увидите

[Bape}l{ka]

имя то добавляется у меня и так, только обратиться я к нему не знаю как
в частности, мне надо загнать имена ячеек диапазона в массив:

i=0
For each iCell in Range
  P(i)=iCell.Name    'ВОТ ТУТ РУГАЕТСЯ
  i=i+1
Next iCell

[Hugo121]

... а в макрос записать не пробовали?

Sub tt()
ActiveSheet.Range("A1").Name = "фигня"
Application.Goto Reference:="фигня"
End Sub

Ну а значение так вытянул - сам не знал :

Sub tt()
ActiveSheet.Range("A1").Name = "фигня"
MsgBox Evaluate(Application.Names("фигня").Value)
End Sub

[nilem]

так можно:

Sub ttt()
ActiveSheet.Range("A1").Name = "фигня"
MsgBox ActiveSheet.Cells(1, 1).Name.Name
End Sub

[Bape}l{ka]

nilem
спасибо большое, работает))) я б ни за что не догадалась продублировать .Name.Name.
с чем это может быть связано?? какая логика?

[nilem]

Сообщение от Bape}l{ka

с чем это может быть связано?? какая логика?

Первое св-во Name предоставляет объект Name (As Variant, фактически ссылка на ячейку), а второе Name дает имя этого объекта (As String). Как-то так.

[Bape}l{ka]

в итоге задачу реализовала так
назначила имена ячейкам в 1й строке, потом, если нет ответа (ячейка пустая), то обращаемся к имени ячейки в данной колонке и загоняем их в массив))

Sub WinerbergerBrandHIDE()
     Dim BrandHide() As String, i As Integer    'динамич.массив с неотмеченными марками
    Dim BrandShow() As String, j As Integer       'динамич.массив с отмеченными марками
    Dim brand As Variant
    Dim Range_ As Range              'диапазон по вопросам 
    Dim Soob1 As String, Soob As String
    
    Application.ScreenUpdating = False
    With ActiveWorkbook.Worksheets("...-Q6")
        .Cells(1, 25).Name = "_БЕРГМАНН"
        .Cells(1, 26).Name = "_БРА.ЕР"
        .Cells(1, 27).Name = "_ВИНЕР.БЕРГЕР"
        .Cells(1, 28).Name = "_ВЕРХНЕВОЛЖ_КЗ"
        .Cells(1, 29).Name = "_КЕРАКАМ"
    End With
    Roww = Selection.Row
    
    'Очищаем массивы
    i = 0
    j = 0
    ReDim BrandHide(i)
    ReDim BrandShow(j)
    'Ищем пустые ответы по маркам 
    Soob = ""
    Soob1 = ""
    For Each iCell In Range_
        If IsEmpty(iCell) Then
            ReDim Preserve BrandHide(i)  'переопред-е массива с сохр-ем данных
            BrandHide(i) = ActiveSheet.Cells(1, iCell.Column).Name.Name
            Soob1 = Soob1 & vbCrLf & BrandHide(i)
            i = i + 1
        Else
            ReDim Preserve BrandShow(j)
            BrandShow(j) = ActiveSheet.Cells(1, iCell.Column).Name.Name
            Soob = Soob & vbCrLf & BrandShow(j)
            j = j + 1
        End If
    Next iCell
    Application.ScreenUpdating = True

    MsgBox "МАРКИ, которые респондент знает: " & vbCrLf & Soob
    MsgBox "СКРЫТЫЕ МАРКИ (респондент их не упоминал): " & vbCrLf & Soob1
End Sub