自动编辑列标题

Question

我需要自动编辑电子表格的列标题（顶行 - A1，B1等）。目标是保留第一个标记（格式为KI_xxxxxx）并删除括号中的术语（括号括起来的字符串（()）或方括号（[]））。

以下是一些前后示例：箭头左侧（->）是编辑前的示例，箭头右侧是相应的预期结果：

1. KI_Categories（提供商品）[UniqueName] - ＆gt; KI_Categories

2. KI_2256522（Unique TAX ID（US）） - ＆gt; KI_2256522

3. KI_2408691（公司增值税号（欧洲）） - ＆gt; KI_2408691

Answer 1

尝试以下代码

    Sub RemoveJunk()
     Dim rng As Range
     Set rng = Range("A1").EntireRow 'Assuming headings are in Row1

     For Each cell In rng.Cells
        If (cell.Value = "") Then Exit For
        cell.Value = (Split(cell, "(")(0))
     Next


    End Sub