VBA: 如何从一个单元格复制部分字符串并用它替换另一个单元格的部分字符串？

Question

excel 中的文字是这样的：

[tab]第 01 节
*第 1 部分的名称
文本
文本
文本
[tab]第 2 节
*第 2 部分的名称
文本
...

我想在列 (1, 2, 3...) 中找到下一个 SECTION，仅复制字符串 SECTION 01. (02., 03.,...,52.,...) 并粘贴它在下面的单元格中仅替换 *.

excel 中的最终结果应如下所示：

第 01 节。第 1 节的名称
文本
文本
文本
第 02 节。第 2 节的名称
文本
...

我尝试录制宏，但它只会将相同的文本复制到指定的一个单元格中，因此我将不得不重新排列 VB 代码。有人可以帮忙吗？

谢谢，

Answer 1

此代码迭代列 a (col=1)，当它找到“[tab]”时，它会将 sctn 变量设置为单元格的值（忽略'[tab]')

当它找到“*”时，它会用 sctn 变量的内容替换它

Dim row as Integer,col as Integer,sctn as String
col=1
row=1
While Cells(row,col)<>""
  If Instr(Cells(row,col),"[tab]")>0 Then
    sctn=Replace(Cells(row,col),"[tab]","")
    Cells(row,col)=sctn
  Else
    Cells(row,col)=Replace(Cells(row,col),"*",sctn)
  End If
  row=row+1
Wend

VBA: 如何从一个单元格复制部分字符串并用它替换另一个单元格的部分字符串？

VBA: How to copy part of the string from one cell and replace part of another cell with it?

excel

vba