用另一个文本替换excel中的文本

Question

我需要用列的标题文本替换列中的“1”。

它说的是循环引用...有没有办法实现这一点？

Answer 1

这是用于列A标题在行中#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。

Answer 3

非常简单的解决方案：

假设第一行有三列标题：A1=X，B1=Y，C1=Z

1. 复制三列的全部数据并将其粘贴到 D、E、F 列，然后再次粘贴到 G、H、I 列。

2. 现在在 D,E,F 集中输入公式：

D2=D1、E2=E1 和 F2=F1。将这些公式复制到各行下方。

3. 在 G、H 和 I 列中输入公式：G2: =if(A2=1,D2,"") 在 H2 和 I2 中复制 G2 的公式

4. 将 G2、H2 和 I2 的公式复制到下一行

5. 因此，您在 G、H 和 I 列的第 3 组中获得了所需的结果

6. 复制 G、H 和 I 的区域并粘贴值

7. 如果您现在想要，可以删除 A、B..F 列。