Code:
Sub Workbook_Open() end sub
Sub Workbook_Open() end sub
Sub WorkBook_Open()
RemoveEmptyRow
ConcatenateColumn
DeleteBlankColumns
SaveFile
End Sub
Sub SaveFile()
'ActiveWorkbook.Save
ThisWorkbook.Saved = True
Application.Quit
Application.ActiveWindow.Close SaveChanges:=True
ActiveWorkbook.Close SaveChanges:=True
'ActiveWorkbook.SaveCopyAs ("D:\save\" & Format(Now, "ddmmyy")
Sub DeleteAlternateRow()
Dim i As Long
Dim DelRange As Range
On Error GoTo Whoa
Application.ScreenUpdating = False
For i = 1 To 1500
If Application.WorksheetFunction.CountA(Range("A"
£<,?síÂ;ù÷™=Âõ<wA?5)¼;M¡³=ìQ8=M@W?êMó;¡JÍ=Âu=i´v?mUÐ;öóæ=¸…= ±ƒƒ?áŠè;¥N >{®="”?§b<ù÷>=
Leave a comment: