用标题单元格替换单元格

时间:2015-08-25 21:56:17

标签: excel vba excel-vba

我正在试图弄清楚如何用标题单元格中的现有数据替换或替换单元格的数据。

以最简洁的方式描述它:

如果cell ='unchecked',则替换为单元格的标题单元格。

有很多专栏,所以我不能具体说明用一个特定的细胞代替。它会因细胞而异。

如:(不是代码,但不会让我在没有缩进的情况下保存请求。)
    C3 =未选中,然后拉C1     H18 =未选中,然后拉H1     P4 =未选中,然后拉P1。

1 个答案:

答案 0 :(得分:2)

只需在列中循环,将术语"取消选中" 替换为该列第一行中的值。

dim c as long, rplc as string
rplc = "unchecked"
with activesheet
    with .cells(1, 1).currentregion
        for c = 1 to .columns.count
            with .columns(c)
                .replace what:=rplc, replacement:=.cells(1, 1).value2, _
                         lookat:=xlwhole, matchcase:=false
            end with
        next c
    end with
end with

这是一个通用框架,旨在为您提供一些入门知识。根据您自己的目的转录它并使用调试(例如F8)来遍历代码以确保它正在执行您想要的操作。如果您遇到麻烦,请回过头来解释您不理解的内容,发生的错误以及您通过调试发现的内容。

您需要将ActiveSheet property引用更改为实际工作表名称。