如何遍歷行直到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

輕松地將多個(gè)工作表/工作簿合并為一個(gè)工作表或工作簿

在Excel中，將多個(gè)工作表或工作簿組合成一個(gè)工作表或工作簿可能很麻煩，但是使用 結(jié)合 功能 Kutools for Excel，您可以將數(shù)十個(gè)工作表/工作簿合并為一個(gè)工作表或工作簿，也可以通過幾次單擊將工作表合并為一個(gè)。  點(diǎn)擊查看全功能 30 天免費(fèi)試用！ Kutools for Excel：超過300個(gè)方便的Excel插件，免費(fèi)試用，沒有限制 30 天。

最佳辦公生產(chǎn)力工具

在Word，Excel，PowerPoint中啟用選項(xiàng)卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。 在同一窗口的新選項(xiàng)卡中而不是在新窗口中打開并創(chuàng)建多個(gè)文檔。 每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！