Проверить диапазон ячеек для ввода данных - объединить в новый столбец

Question

Я новичок в VBA, но считаю, что он может предложить мне отличную функциональность в Excel, не прибегая к мега сложным формулам.

У меня есть таблица, и внутри этой таблицы я определяю, где существует комбинация столбца и заголовка.

Что я хочу сделать, это конкатенация каждого столбца и заголовка строки в один столбец.

Пример (Там может быть любое количество столбца/строки заголовков):

 10CAT 20CAT 30CAT 
EAR  x  x 
CAR    x  x 
GBR  x  x  x 

Где у меня «х» Я хочу конкатенации в одну колонку, как это показано ниже:

10CATEAR 
20CATEAR 
20CATCAR 
30CATCAR 
10CATGBR 
20CATGBR 
30CATGBR 

Answer 1

«Я не уверен, с чего начать» Я знаю, как вы себя чувствуете. Я был здесь. Вот код для того, что вы ищете:

Option Explicit 

Sub myMacro() 

    ' offsets used to find X 
    Dim rOffset As Integer, cOffset As Integer 
     rOffset = 0 
     cOffset = 0 

    ' row numbers for the source and destination 
    Dim rowDest As Integer, rowSour As Integer 
     rowDest = 1 
     rowSour = 2 

    ' loop through all entries in column A 
    Do While Range("A" & rowSour).Value <> "" 

     ' concatenation proccess when X is found 
     If Range("B2").offset(rOffset, cOffset).Value = "X" Then 

      ' concatenation proccess 
      Range("T" & rowDest).Value = Range("B1").offset(0, cOffset).Value + Range("A" & rowSour).Value 

      ' next concatenation 
      rowDest = rowDest + 1 

     End If 

     ' next column for X 
     cOffset = cOffset + 1 

     ' when looped through all columns, prepare variables for the next run 
     If Range("B1").offset(0, cOffset).Value = "" Then 

      ' next row in column A 
      rowSour = rowSour + 1 

      ' next row offset for X 
      rOffset = rOffset + 1 

      ' reset column offset for X 
      cOffset = 0 

     End If 

    Loop 

End Sub 

Попробуйте пройти через программу и понять, почему все делается так, как они есть. Имейте записную книжку с вами и для каждого шага вправо значения переменных. Эта программа написана логически. Никакие фантастические функции или структуры не используются. Это написано как «как вы думаете, что процедура должна идти».

Поймите синтаксис. Затем, как только вы выяснили алгоритм (как было сделано решение), постарайтесь сделать программу более эффективной. Есть 10 способов использования программы.

Успехов,