選擇列中的所有空白單元格

我發現下面的代碼以選擇列中的下一個空白單元格。該代碼找到下一個空白單元格（從A1開始的數據）。假設我有來自A1-A15的數據，然後是空白單元格。此代碼確實選擇A16，因爲它是下一個空白單元格。選擇列中的所有空白單元格

但是，我在下面有更多的數據，我想選擇每組數據下的所有空白單元格。請告知如何修改此代碼，以便它可以遍歷整個列A並選擇所有下一個空白單元格（如果我理解我寫的內容）。由於

Sub FindNextCell() 
'Locate the next data entry cell in data entry column A 
Dim FirstCell As String 
Dim i As Integer 
FirstCell = "A1" 
Range(FirstCell).Select 
Do Until ActiveCell.Value = "" 
If ActiveCell.Value = "" Then 
Exit Do 
Else 
ActiveCell.Offset(1, 0).Select 
End If 
Loop 
End Sub

來源

2014-09-04 Kaiser

如果你想選擇所有的第一和最後一個單元格之間的空白，你可以使用這個

Dim lr As Long 
lr = Range("A" & Rows.Count).End(xlUp).Row 

Range("A1:A" & lr).SpecialCells(xlCellTypeBlanks).Select

注：Avoid using .Select

來源

2014-09-04 09:21:06

，像變魔術一樣 – Kaiser 2014-09-04 10:00:56

你好我。感謝您在上面的幫助。我嘗試了其他的東西，但它不起作用，所以需要你的幫助。你能否請告知如何在這些選定單元格中添加總和公式。選定的單元格（使用上面的代碼）應該總和上面的所有單元格。因此，一個宏選擇所有空白單元格和總和。乾杯 – Kaiser 2014-09-04 10:10:38

@Kaiser我認爲提出一個新問題是有道理的，因爲這會使當前的問題和答案完全失效。打我一個鏈接到你的新問題，我會看到我能爲你做什麼。 – 2014-09-04 10:25:40

選擇列中的所有空白單元格

回答

相關問題