我有一個作業表活動代碼，如果列的內容A:A為空，它會隱藏所有行。現在，這段代碼作業正常。我正在嘗試將相同的代碼應用于同一作業表上的按鈕，然后該按鈕將隱藏 ColumnM:M中同樣為空白的任何行。
Sub Hide_Unused_Rows()
'Hide rows with no requirements
Dim lastrow As Long
Dim datasheet As Worksheet
Dim i As Long
Set datasheet = Sheets("ORDER FORM")
lastrow = datasheet.Range("M" & datasheet.Rows.Count).End(xlUp).Row
For i = lastrow To 2 Step -1
If datasheet.Cells(i, 1) = "" Then
datasheet.Rows(i & ":" & i).EntireRow.Hidden = True
End If
Next I
End Sub
如上所述，此代碼在應用于第 1 階段（激活作業表）時效果很好，但是當應用于第 2 階段時，它不會隱藏列中單元格M為空白的行。除了lastrow = datasheet.Range("M" & datasheet.Rows.Count).End(xlUp).Row參考 ColumnA或 Column之外，這兩個操作的代碼是相同的M。
uj5u.com熱心網友回復：
您忘記更改此處的列：
If datasheet.Cells(i, 1) = "" Then
見下文。
Sub Hide_Unused_Rows()
'Hide rows with no requirements
Dim lastrow As Long
Dim datasheet As Worksheet
Dim i As Long
Set datasheet = Sheets("ORDER FORM")
lastrow = datasheet.Range("M" & datasheet.Rows.Count).End(xlUp).Row
For i = lastrow To 2 Step -1
If datasheet.Cells(i, "M") = "" Then
datasheet.Rows(i & ":" & i).EntireRow.Hidden = True
End If
Next i
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/380368.html
上一篇：ExcelVBA-如何檢測用戶選擇作業表上的整行并區分是否選擇了多行？
下一篇：比較多個資料框列以列出