blocks|key|1008177|text|使用EntireRow+(让我告诉您，这是非常有用的)并从A1开始逐行计数是一种非常基本的方法。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1008178|这将在“即时”窗口中告诉您：|1008179|Sub+findemptyrow()+++++++++++++++++++++++'''Psuedo+Code
Application.ScreenUpdating+=+False+++++++'turns+off+annoying+blinky
Range("a1").Activate+++++++++++++++++++++'start+at+beginning+++
While+a+<>+1+++++++++++++++++++++++++++++'keep+going
++If+Application.CountA(ActiveCell.EntireRow)+=+0+Then++'is+it+blank?
++Debug.Print+"Row+"+&+(ActiveCell.Row)+&+"+is+blank."+++'it+is
++a+=+1+++++++++++++++++++++++++++++++++++'stop+going++
++End+If
++ActiveCell.Offset(1).Activate+++++++++++'next+cell
Wend++++++++++++++++++++++++++++++++++++++'do+it+all+over+again++
Application.ScreenUpdating+=+True+++++++++'back+to+normal+settings
End+Sub|code-block|syntax|javascript|1008180|将ScreenUpdating设为False会使速度更快，即使有10k行。|offset|length|style|CODE|1008181|entityMap^0|0|0|0|1|E|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|R|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|S|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|T|8|@$K|U|L|V|M|N]]|9|@]|A|$]]|$1|O|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|P|$]]

Using EntireRow (which is so useful let me tell you) and counting row by row starting in A1 is one very basic way of doing this.

This will tell you in the immediate window:

<pre><code>Sub findemptyrow() '''Psuedo Code
Application.ScreenUpdating = False 'turns off annoying blinky
Range("a1").Activate 'start at beginning 
While a &lt;&gt; 1 'keep going
 If Application.CountA(ActiveCell.EntireRow) = 0 Then 'is it blank?
 Debug.Print "Row " &amp; (ActiveCell.Row) &amp; " is blank." 'it is
 a = 1 'stop going 
 End If
 ActiveCell.Offset(1).Activate 'next cell
Wend 'do it all over again 
Application.ScreenUpdating = True 'back to normal settings
End Sub
</code></pre>

Making <code>ScreenUpdating</code> False will make this faster, even with 10k's of rows.

blocks|key|952772|text|Range.Find+method可能是最方便的方法。查找通配符(What:=Chr(42))，从A1+(After:=.Cells(1,+1)+)开始，向后搜索(SearchDirection:=xlPrevious)，逐行搜索(SearchOrder:=xlByRows).Row)，查看公式(LookIn:=xlFormulas)，因为这将找到第一个值或公式；如果公式返回空字符串("")，则查看xlValues可能不正确。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|952773|Option+Explicit
Public+Donations+As+Worksheet

Sub+test()
++++Set+Donations+=+Worksheets("Sheet2")
++++Debug.Print+getNextEmptyRow(Donations)
End+Sub

Function+getNextEmptyRow(ws+As+Worksheet)
++++With+ws.Cells
++++++++getNextEmptyRow+=+.Find(What:=Chr(42),+After:=.Cells(1,+1),+LookIn:=xlFormulas,+_
++++++++++++++++++++++++++++++++SearchDirection:=xlPrevious,+SearchOrder:=xlByRows).Row+%2B+1
++++End+With
End+Function|code-block|syntax|javascript|952774|不能在模块代码表的声明区域中设置Donations。在代码表的声明区域(顶部)声明公共变量，但在sub或函数中设置变量。|952775|如果你想要‘下一个空行’，不要忘了在返回的行上加1。|952776|entityMap|0|LINK|mutability|MUTABLE|url|https://msdn.microsoft.com/en-us/library/office/ff839746.aspx^0|X|D|1H|J|2A|R|38|Q|45|I|5E|2|5L|8|0|H|0|0|0|G|9|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@$9|X|A|Y|B|C]|$9|Z|A|10|B|C]|$9|11|A|12|B|C]|$9|13|A|14|B|C]|$9|15|A|16|B|C]|$9|17|A|18|B|C]|$9|19|A|1A|B|C]]|D|@$9|1B|A|1C|1|1D]]|E|$]]|$1|F|3|G|5|H|7|1E|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|1F|8|@$9|1G|A|1H|B|C]]|D|@]|E|$]]|$1|M|3|N|5|6|7|1I|8|@]|D|@]|E|$]]|$1|O|3|-4|5|6|7|1J|8|@]|D|@]|E|$]]]|P|$Q|$5|R|S|T|E|$U|V]]]]

The <a href="https://msdn.microsoft.com/en-us/library/office/ff839746.aspx" rel="nofollow">Range.Find method</a> is likely the most expedient method. Look for a wildcard (<code>What:=Chr(42)</code>), start in A1 (<code>After:=.Cells(1, 1)</code>, search backwards (<code>SearchDirection:=xlPrevious</code>), search row-by-row (<code>SearchOrder:=xlByRows).Row</code>), look at the formulas (<code>LookIn:=xlFormulas</code>) since that will find the first value or formula; looking at <code>xlValues</code> may not be correct if a formula is returning an empty string (<code>""</code>).

<pre><code>Option Explicit
Public Donations As Worksheet

Sub test()
 Set Donations = Worksheets("Sheet2")
 Debug.Print getNextEmptyRow(Donations)
End Sub

Function getNextEmptyRow(ws As Worksheet)
 With ws.Cells
 getNextEmptyRow = .Find(What:=Chr(42), After:=.Cells(1, 1), LookIn:=xlFormulas, _
 SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row + 1
 End With
End Function
</code></pre>

You cannot set <code>Donations</code> in the declarations area of a module code sheet. Declare the public variable in the declarations area (top) of the code sheet but Set the variable in a sub or function.

Don't forget to add 1 to the row returned if you want the 'next empty row'.

blocks|key|1008271|text|只是使用‘`Range’的SpecialCells方法的另一种选择：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1008272|Option+Explicit

Sub+Test()
++++Debug.Print+"Last+row+on+Sheet1+is:+"+&+FirstCompletelyEmptyRow(Sheet1)
End+Sub

Function+FirstCompletelyEmptyRow(ByRef+wsTarget+As+Worksheet)+As+Long
++++FirstCompletelyEmptyRow+=+wsTarget.Range("A1").SpecialCells(xlCellTypeLastCell).Row+%2B+1
End+Function|code-block|syntax|javascript|1008273|entityMap^0|D|C|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

Just another alternative using the <code>SpecialCells</code> method of a `Range:

<pre><code>Option Explicit

Sub Test()
 Debug.Print "Last row on Sheet1 is: " &amp; FirstCompletelyEmptyRow(Sheet1)
End Sub

Function FirstCompletelyEmptyRow(ByRef wsTarget As Worksheet) As Long
 FirstCompletelyEmptyRow = wsTarget.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
End Function
</code></pre>

need a function that returns the first completely empty row (no values, no formulas, no blanks) from a sheet with sparely populated cells. No one single column is required to be filled.

I tried this, but i can even get it to compile:

<pre><code>Public Donations As Worksheet
Set Donations = Sheets("Sheet2")

Function getEmptyRow() As Long
 Dim lastCol As Long, lastRow As Long, maxRow As Long
 Dim col As Long
 Dim r As Variant

 lastCol = Donations.Cells(1, Columns.Count).End(xlToLeft).Column
 For col = 1 To lastCol Step 1
 lastRow = Donations.Cells(Rows.Count, col).End(xlUp).row
 maxRow = Application.WorksheetFunction.max(maxRow, lastRow)
 Next col
 getEmptyRow = maxRow + 1
End Function
</code></pre>

find first completely empty row on a sheet

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

需要一个函数来返回工作表中填充了空闲单元格的第一个完全空的行(没有值，没有公式，没有空白)。不需要填写任何一列。我试过了，但我甚至可以编译它：Public Donations As WorksheetSet Donations = Sheets("Sheet2")Function getEmptyRow() As Lo...

问在工作表上查找第一个完全为空的行
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在工作表上查找第一个完全为空的行EN