电子表格如何给多个excel表按文件名插入标题?

1.如何给多个excel表按文件名插入标题?

我建议你的做法是，新建一个工作本，然后打下那个BT.TXT，选择用逗号分隔，这样会得到一个名为BT的工作表，A列是H1_1_1这些信息，B列是住户数量表这些信息，然后把下面的代码COPY该工作本的VBA代码页

Sub Macro1()

Dim count As Integer, i As Integer

Dim str As String

Dim wb As Workbook

Set wb = ActiveWorkbook

count = Range("A65536").End(xlUp).Row

Application.ScreenUpdating = False

Application.DisplayAlerts = False

For i = 1 To count

str = Range("A" & i).Value & ".xls"

Workbooks.Open "C:\excel\" & str

Workbooks(str).Worksheets("sheet1").Rows("1:1").Insert xlDown 'SHEET1是该工作表的名，由于你没有提供，我假设是SHEET1

Workbooks(str).Worksheets("sheet1").Range("A1").Value = wb.Worksheets("BT").Range("B" & i).Value

Workbooks(str).Close True

wb.Activate

Next

End Sub