Excel：Excel VBA 資料自動填入空白儲存格

Excel：Excel VBA 資料自動填入空白儲存格：

在處理大量數據分析時，一般都會使用樞紐分析表（Pivot Tables）來整理數據，例如同一客戶在過去幾年購買的不同種類貨品，有時發現在同一客戶下有多種類貨品，所以在客戶下的儲存格（Cell）資料是空白，但有時需要使用這個結果作另外分析，便要將客戶資料複製（Copy）到下面儲存格去，當然資料少，用複製和粘貼（Copy and Paste）是可以，但資料太多便很麻煩，筆者便寫了一個簡單的 VBA（Visual Basic for Applications）去完成這工作。

樞紐分析表（Pivot Tables）整理數據後有空白儲存格

複製（Copy）樞紐分析表（Pivot Tables）數據後，仍有空白儲存格

啓動 Excel VBA

輸入最後列號 = 26

按 Fill 鍵，便將資料填入空白儲存格

Excel VBA Fill Up 程式：

Private Sub CommandButtonFill_Click() Dim CurrentWS1   As String Dim CurrentCell1   As String Dim CurrentRow1  As Integer Dim CurrentCol1  As Integer Dim ChannelCol   As Integer Dim i1                   As Long Dim CurrentCell2   As String Dim EndRow1      As Integer EndRow1 = TextBoxEndRow1.Text CurrentRow1 = ActiveCell.Row CurrentCol1 = ActiveCell.Column CurrentCell1 = Cells(CurrentRow1, CurrentCol1) For i1 = CurrentRow1 + 1 To EndRow1 Step 1 TextBoxRow.Text = i1 TextBoxCol.Text = CurrentCol1 CurrentCell2 = Cells(i1, CurrentCol1) TextBoxCell1.Text = CurrentCell1 TextBoxCell2.Text = CurrentCell2     If CurrentCell2 = "" Then         Cells(i1, CurrentCol1) = CurrentCell1         TextBoxCell2.Text = "EMPTY"     Else         CurrentCell1 = CurrentCell2     End If Next End Sub

2017年 7月 17日 天氣報告

氣溫：24.4度 @ 22:00

相對濕度：百分之 97%

天氣：大雨