excel vba选取行，设置单元格为文本（求助）

Question

Sub 文本型()
X = [D65536].End(3).Row + 3
Selection.NumberFormatLocal = "@"
End Sub
上代码如何写才对？

Answer 1

Sub 文本型()
    X = [D65536].End(3).Row + 3
    Range("D1:D" & X).NumberFormatLocal = "@"
End Sub

Selection需要Select有内容才行。

追问

最D列最后一个非空单元下面的第三行，设置单元格为文本
行是没有内容的，只是设置单元格为文本

追答

明白了，改成下面这样应该就可以了。D列非空单元格下面第3行整行设为文本

Sub 文本型()
    X = [D65536].End(3).Row + 3
    Range("D" & X).EntireRow.NumberFormatLocal = "@"
End Sub