Excel VBA用户窗体向Logs工作表录入数据时未追加到下一行，偏移20余行

你当前遇到的写入行偏移问题，核心来自原代码中定位空行的逻辑缺陷：

• 原有代码使用ws.Cells.Find(What:="*", ...)的逻辑，会扫描整个Logs工作表的所有单元格，定位全表范围内最后一个带值的单元格所在行。只要工作表中除了正常录入的A-F列交易数据外，任意边角位置（比如远列、历史测试残留的零散内容、之前误输入的废数据）存在非空值，Find方法就会优先定位到那个远单元格的行号，最终算出的写入行号会远大于A-F列实际最后一行数据的位置，这就是偏移20余行的直接原因。
• 该逻辑还存在额外隐患：如果Logs表刚创建、A-F列完全没有任何数据，Find会返回空对象，直接访问.Row属性会触发运行时错误。

1. 定位逻辑优化（核心修复） #

将全表扫描的查找逻辑，替换为仅针对实际存储交易数据的列范围定位，从根源上避免零散残留内容的干扰。
可根据你的使用场景选择以下两种可靠写法：

写法一（适配所有场景） #

限定A-F列的查找范围，兼容空表、不规则数据的情况：

Dim iRow As Long
Dim ws As Worksheet
' 显式绑定代码所属工作簿的Logs表，避免错引用其他打开的同名工作表
Set ws = ThisWorkbook.Worksheets("Logs")

' 仅扫描A-F列，定位可追加的行号
With ws.Range("A:F")
    ' 判断A-F列是否完全为空
    If WorksheetFunction.CountA(.Cells) = 0 Then
        ' 空表场景默认第1行为表头，从第2行开始写入
        iRow = 2
    Else
        ' 在A-F列范围内找最后一个非空行，下一行即为可写入行
        iRow = .Cells.Find(What:="*", _
                           SearchOrder:=xlByRows, _
                           SearchDirection:=xlPrevious, _
                           LookIn:=xlValues).Row + 1
    End If
End With

写法二（更简洁稳定，适配A列永远非空的场景） #

如果你的业务逻辑中A列（日期列）录入永远不会为空，可使用从列底部向上检索的方法，效率更高、无兼容问题：

' 从A列最底部开始，向上找到第一个非空单元格的位置，下一行就是可追加行
iRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1

2. 临时排查当前残留的异常值 #

你可以打开Logs工作表，按下Ctrl+End快捷键，光标会自动跳转到当前表中系统记录的最后一个带内容/格式的单元格，这个位置就是导致你当前行偏移的残留内容所在。直接删除该位置的所有内容，原有代码即可临时恢复正常写入位置。

3. 原有写入、清空逻辑无需改动 #

替换完成空行定位逻辑后，原来的窗体值写入、文本框清空的代码可以直接保留使用，不会受影响。

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