Sheets(1).SelectIf ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = FalseEnd If Range("A4:AK4").ActivateActiveSheet.Range("A4:AK4").AutoFilter
2015年6月27日星期六
Excel VBA : set autofiltering
Using VBA to set autofiltering :
2015年6月26日星期五
VBA Code to remove Duplicate Rows consider columns
VBA Code to remove Duplicate rows consider column
ro = getRowCount(0)
Range("A1:Z" & ro).Select
Range("A1:Z" & ro).RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
VBA sub : DeleteColumns
In order to delete columns of a sheet, we can use below simple sub:
InputString = "C,G,H,I,J,T,U,V,W,X,Y"
DeleteColumns (InputString)
Sub DeleteColumns(InputString As String)
Dim aString As Variant
aString = Split(InputString, ",")
cString = UBound(aString) + 1
For c = cString To 1 Step -1
Columns(aString(c - 1)).Select
Columns(aString(c - 1)).Delete
Next c
End Sub
Excel VBA : Hide or Unhide columns
To hide or unhide the column by vba:
Columns( 6 ).EntireColumn.Hidden = False
Columns("A:Z").EntireColumn.Hidden = False
訂閱:
文章 (Atom)