嘿，作为VBA新手完全不用慌，这两个需求都能用简单的代码实现，我一步步给你拆解说明：

1. 提取文件名首字符并粘贴到工作表 #

这个操作逻辑很直接，先拿到当前Excel文件的名字，再取第一个字符，最后写入你指定的单元格就行：

Sub GetFirstCharOfFileName()
    ' 获取当前工作簿的文件名（不含路径）
    Dim fileName As String
    fileName = ThisWorkbook.Name
    
    ' 提取文件名的第一个字符
    Dim firstChar As String
    firstChar = Left(fileName, 1)
    
    ' 将首字符写入当前工作表的A1单元格（可自行修改目标位置）
    ActiveSheet.Range("A1").Value = firstChar
End Sub

简单解释下：

• ThisWorkbook.Name 能直接获取当前打开的Excel文件名（比如你给的示例"PR_0001_nil_officer.xls"）
• Left(fileName, 1) 是从字符串左侧截取1个字符，也就是首字符
• 最后一行的写入位置可以按需修改，比如改成Sheets("你的工作表名").Range("C3")

2. 提取文件名前7个字符到汇总表G2:G6 #

针对你给出的示例文件名，前7个字符正好是"PR_0001"，我们可以用类似逻辑，把提取的内容批量填充到指定区域：

Sub ExtractFirst7CharsToSummary()
    ' 获取当前工作簿文件名的前7个字符
    Dim fileName As String
    Dim targetText As String
    fileName = ThisWorkbook.Name
    targetText = Left(fileName, 7)
    
    ' 指定汇总表的G2:G6目标区域
    Dim targetRange As Range
    Set targetRange = Sheets("汇总表").Range("G2:G6")
    
    ' 把提取的文本批量填充到整个区域
    targetRange.Value = targetText
End Sub

新手操作指引：

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」
3. 把对应代码复制粘贴到模块里
4. 按下F5运行宏，或者回到Excel界面，通过「开发工具」→「宏」来执行

如果之后需要处理多个文件的需求，我们可以再调整代码，但针对你现在描述的单个文件场景，上面的代码完全够用啦。

内容的提问来源于stack exchange，提问作者Mayokun