GBKEE

回復 3# paddyliu

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, A As Variant
   
4.     With Range("a:a")
   
5.         .SpecialCells(xlCellTypeBlanks).Delete             '空白列刪除:集中有資料範圍
   
6.         For Each E In .SpecialCells(xlCellTypeConstants)   '有資料範圍
   
7.             A = Split(E, "|")                               '分割字串為陣列
   
8.             E.Resize(, UBound(A) + 1).Value = A
   
9.         Next
   
10.     End With
    
11. End Sub

複製代碼

GBKEE

回復 7# paddyliu

如圖: 程式碼可用於每張工作表

下載 (34.75 KB)

2013-5-6 12:38

程式碼如置於 其他工作表模組中
With ActiveSheet.Range("a:a")   作用中的工作表