2017年7月17日 星期一

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%
天氣:大雨

沒有留言:

張貼留言