Заменить текст в Excel другим

Question

Мне нужно заменить "1" в столбцах на текст заголовка столбца.

Это говорит о круговой ссылке ... Есть ли способ добиться этого?

Answer 1

Это для столбца А с заголовком в строке № 1:

Запустите этот короткий макрос:

Sub UseHeader()
    Dim v As String, rng As Range

    Set rng = Range("A:A")

    v = rng(1).Value
    rng.Replace What:="1", replacement:=v
End Sub

Результат:

Чтобы сделать это для нескольких столбцов, необходимо указать, какие столбцы имеют заголовки.

Answer 2

Очень простое решение:

Скажем, есть три столбца с заголовками в строке 1: A1 = X, B1 = Y, C1 = Z

1. Скопируйте все данные трех столбцов и вставьте их в столбцы D, E, F и снова вставьте их в столбцы G, H, I.

2. Теперь в D, E, F Set введите формулу:

D2 = D1, E2 = E1 и F2 = F1. Скопируйте эти формулы вниз по строкам.

3. В столбцах Set G, H и I введите формулу: G2: = if(A2 = 1, D2, "") Скопируйте формулу G2 в H2 и I2

4. Скопируйте формулу G2, H2 и I2 по строкам

5. Таким образом, вы получите желаемый результат в наборе 3 столбцов G, H и I

6. Скопируйте область G, H и I и вставьте значения

7. Если вы хотите сейчас столбцы A, B ..F можно удалить.

Answer 3

Вот простое решение, которое идентифицирует, какие взаимоисключающие столбцы имеют 1 в них.