如何遍历行直到Excel列中为空白？

Sub Test1() UpdatebyExtendoffice20161222 Dim x As Integer Application.ScreenUpdating = False Set numrows = number of rows of data. NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count Select cell a1. Range("A1").Select Establish "For" loop to loop "numrows" number of times. For x = 1 To NumRows Insert your code here. Selects cell down 1 row from active cell. ActiveCell.Offset(1, 0).Select Next Application.ScreenUpdating = True End Sub

Sub LoopThroughUntilBlanks() UpdatebyExtendoffice20161222 Select cell A2, *first line of data*. Dim xrg As Range On Error Resume Next Set xrg = Application.InputBox _ (Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8) xrg.Cells(1, 1).Select Set Do loop to stop when two consecutive empty cells are reached. Application.ScreenUpdating = False Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0)) Insert your code here. Step down 2 rows from present location. ActiveCell.Offset(2, 0).Select Loop Application.ScreenUpdating = False End Sub

轻松地将多个工作表/工作簿合并为一个工作表或工作簿

在Excel中，将多个工作表或工作簿组合成一个工作表或工作簿可能很麻烦，但是使用 结合 功能 Kutools for Excel，您可以将数十个工作表/工作簿合并为一个工作表或工作簿，也可以通过几次单击将工作表合并为一个。  点击查看全功能 30 天免费试用！ Kutools for Excel：超过300个方便的Excel插件，免费试用，没有限制 30 天。

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！