返回列表 上一主題 發帖

請問如何把兩欄的資料合併?

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
558 
主題
58 
精華
0 
積分
625 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-5-18 
1# 跳轉到 »
發表於 2011-8-11 08:43 | 顯示全部帖子
本帖最後由 hugh0620 於 2011-8-11 08:50 編輯

回復 5# CYC

序1~2 是先判斷FOR至少要跑幾圈
序3~8 執行假如C欄位沒有資料就帶出D欄位資料並刪除D欄位資料
  1. A = Range("C65536").End(xlUp).Row
  2. B = Range("D65536").End(xlUp).Row
  3. For I = 1 To Application.Max(A, B)
  4.     If Range("C" & I) = "" Then
  5.        Range("C" & I) = Range("D" & I)
  6.        Range("D" & I).Clear
  7.     End If
  8. Next
複製代碼
學習才能提升自己

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題