Excel2010工作表有隱藏非連續性及規律性的”列”，在工作表第一列的某格(或其他位置)，以公式(或其他方式)查找顯示在這個工作表已經隱藏的”列”名。如6、25、60、136、369、3456列等等(或其他顯示方式)。謝謝?

[匿名]

2016-10-23 4:52 am

更新1:

Excel2010工作表有隱藏非連續性及非規律性的”列”，..............

更新2:

另需類似的"欄"位問題。 Excel2010在工作表第一列的某格(或其他位置) (工作表有隱藏非連續性及非規律性的”欄”)，以公式(或其他方式)查找顯示在這個工作表已經隱藏的”欄”名。如A、H、AB、AH、AK、BC欄等等(或其他顯示方式)。謝謝

更新3:

謝謝指教。原題提問語意欠詳。抱歉。試想在不"取消隱藏" 之前，先行有"顯示在這個工作表已經隱藏的欄名"的顯示方式。煩請賜教

更新4:

Lopez大: 謝謝

回答 (1)

Lopez

2016-10-24 8:30 pm

✔ 最佳答案

假設隱藏的列與欄皆在 Sheet1 工作表,
以下 Excel VBA 程式碼, 可將 :
隱藏的列號顯示在 Sheet2 工作表的 A 欄,
隱藏的欄號顯示在 Sheet2 工作表的 B 欄. (抱歉, 我不知如何顯示 A, B, ... 格式的欄名, 只能用數字顯示第幾欄)

Sub Find_Hidden()

Sheets("Sheet2").Columns("A:B").ClearContents
r1 = 1
r2 = 1

For i = 1 To 65536
If Sheets("Sheet1").Rows(i).EntireRow.Hidden = True Then
Sheets("Sheet2").Cells(r1, 1) = i
r1 = r1 + 1
End If
Next

For j = 1 To 256
If Sheets("Sheet1").Columns(j).EntireColumn.Hidden = True Then
Sheets("Sheet2").Cells(r2, 2) = j
r2 = r2 + 1
End If
Next

Sheets("Sheet2").Select

End Sub

👍 1 👎 0