excel vba 自動判斷儲存格是否有資料並儲存資料到另一張工作表

excel vba

bobpotter811025 2021-04-26 09:35:36 ‧ 964 瀏覽

各位 vba 大神我想詢問

自動判斷工作表1的G欄是否有資料,如果有資料的話,會自動儲存到工作表2
並也將工作表1的A、B、E、F、欄也同步到工作表2
再麻煩大神們教我寫以上敘述的程式碼~~ 謝謝:)

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

Neish

iT邦研究生 1 級 ‧ 2021-04-26 10:52:56

最佳解答

試試看吧
https://cowtransfer.com/s/3b267ed693034b

Sub test()

    Dim i As Integer
    
    '從G欄底部往上 找最後一個
    For i = 1 To Range("G65536").End(xlUp).Row
    
        '判斷G欄是否有值
        If Range("G" & i) <> "" Then
        
            'COPY整列到第二工作表
            Rows(i).Copy Worksheets(2).Rows(i)
        
        End If
        
    Next
    
End Sub