提取各sheet表指定符号后面的信息

Moneys

求助：


提取各sheet表指定符号后面的信息，存储到各表中的同一个单元格位置

Moneys

提取各sheet表指定符号后面的信息，存储到各表中同一个位置单元格

良良

定义名称，见附件：

swl4561255

1. Sub 提取()
   
2. Dim sht As Worksheet
   
3. For Each sht In ThisWorkbook.Worksheets
   
4.    sht.[A1] = Mid(sht.Name, InStr(sht.Name, "_") + 1)
   
5. Next
   
6. End Sub
   

复制代码

Moneys

良良 发表于 2024-3-21 16:55
定义名称，见附件：

下载后启用编辑就不显示结果值了，是函数嘛？还是VBA？谢谢

我要成为专家

建立名称【工作表】，引用位置输入公式

1. =get.workbook(1)

复制代码

，
工作表单元各输入公式

1. =INDEX(TRANSPOSE(MID(工作表,13,100)),ROW(A1))

复制代码

三键下拉右拉，但需要将文件存为启用宏的工作簿