VBA代码出现Type mismatch错误，无法定位表格目标单元格

标题示例 #

通过#的数量区分标题层级，#越多层级越低：

二级标题 #

三级标题 #

四级标题

无序列表示例 #

用短横线开头，支持嵌套缩进：

• 日常事项
  • 整理桌面文件
  • 回复未读邮件
• 学习计划
  • 掌握Markdown格式
  • 练习VBA基础语法

文本强调示例 #

用星号包裹实现不同强调效果：

• 斜体强调：这是一段斜体文本
• 粗体强调：这是一段粗体文本

代码展示示例 #

单行代码用单个反引号，多行代码用三个反引号包裹：

• 单行命令：git commit -m "update content"
• 多行代码块（VBA示例）：

Sub TestModule2()
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("database")
    ' 后续逻辑代码
End Sub

引用文本示例 #

用大于号标注引用内容：

把每一件简单的事做好就是不简单，把每一件平凡的事做好就是不平凡。

链接示例 #

方括号放显示文本，圆括号放链接地址：
示例站点

图片示例 #

方括号放图片替代文本，圆括号放图片地址：
自然风光示例图

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