Question

我试图将“ x”和“ y”设置为可变整数，其中在下面列出的偏移位置中，“ x”将代替9，“ y”将代替10。 “ x”和“ y”将需要根据“ t”对应的行中第一个空白单元格的位置来更改值。因此，如果工作表的第9列为空白，则“ x”将等于9，而“ y”将等于10，如果第7列为空白，则“ x”将等于7，而“ y”将等于8，依此类推。我不太确定从哪开始。任何帮助表示赞赏！

{{1}}

Answer 1

这是您的意思吗？使用“查找”时，应先检查是否已找到东西，然后再继续操作以避免出现错误。另外，我建议给变量赋予更有意义的名称，尤其是当变量太多时。可能会造成混淆。

Sub z()

Dim t As Range, x As Long, y As Long, n As Long

With Worksheets("Recap Sheet").Cells
    Set t = .Find("Year of Tax Return", After:=.Range("A1"), LookIn:=xlValues)
    If Not t Is Nothing Then
        n = t.EntireRow.SpecialCells(xlCellTypeBlanks)(1).Column
        x = n
        y = n + 1
    End If
End With

End Sub

根据空单元位置设置变量偏移

1 个答案: