excel 用vba隱藏欄位求救

excel vba

wrxue 2020-11-26 13:38:09 ‧ 3981 瀏覽

分享至

如何根據A column中若為空白則隱藏該row，A column以外至E column的內容隱藏起來

變為

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

rogeryao

iT邦超人 7 級 ‧ 2020-11-26 16:09:44

最佳解答

Private Sub CommandButton1_Click()
'B,C,D 欄位隱藏
Range(Columns(2), Columns(4)).Hidden = True
'
Dim U As Integer
Set RngHead = Range("A1")
DataCunt = Range("A65536").End(xlUp).Row
'A 欄位值空白隱藏
For U = RngHead.Row To DataCunt
  If (Trim(Cells(U, 1)) = "") Then
    Rows(U).Hidden = True
  End If
Next
End Sub

回應
分享
檢舉

登入發表回應

race

iT邦新手 5 級 ‧ 2020-11-26 18:47:07

先確認資料的範圍,再Loop記錄Row,進行處理.Column則直接處理

Sub Test()
    Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
    Columns("B:D").Hindden = True
end sub

回應 1
分享
檢舉

race iT邦新手 5 級 ‧ 2020-11-26 18:48:51 檢舉

錄製巨集,也應該可以得到答案

登入發表回應

我要發表回答

立即登入回答

參賽組數

1064 組

團體組數

40 組

累計文章數

22209 篇

完賽人數

600 人

15th鐵人賽 16th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 javascript 2018鐵人賽 python 2017鐵人賽 windows php c# windows server linux css react vue.js

IT邦幫忙

excel 用vba隱藏欄位求救

2 個回答

我要發表回答

標記使用者