返回列表 上一主題 發帖

[發問] 資料移動及對比問題。

stephenlee

帖子
63 
主題
32 
精華
0 
積分
125 
點名
0  
作業系統
WIn10 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2018-7-19 
最後登錄
2022-8-11 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2020-4-18 16:20 | 只看該作者

[發問] 資料移動及對比問題。

1. 是我在一個工作表內複製過來的而2都是在另外一個工作表複製過來,但是存有空白欄位及排列與1不同
我想將2的資料複製過去後用VBA,將2的排列與1相同和去掉空白的欄位,就是像3的那個一樣
4是1的資料 沒變,而5是2 經去掉空白欄位和與1排列相同的資料,當排列好後再分隔一欄,找出兩者的不同之處,在5的地方用顏色標示出來。
這些動作最好在當第2的資料複製過去後,點擊按鈕後自動去掉空白欄及排列與1一樣,同時做資料對比,在第2處以顏色標示。





活頁簿11.rar (9.26 KB)
收藏 分享

stephenlee

帖子
63 
主題
32 
精華
0 
積分
125 
點名
0  
作業系統
WIn10 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2018-7-19 
最後登錄
2022-8-11 
3#
發表於 2020-4-19 23:34 | 只看該作者
Sub 整理()
Dim R&, xR As Range
R = [K65536].End(xlUp).Row
If R < 3 Then Exit Sub
With Range("F3: ...
准提部林 發表於 2020-4-19 10:16



  很感謝大哥的幫忙,十分感謝。

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
2#
發表於 2020-4-19 10:16 | 只看該作者
Sub 整理()
Dim R&, xR As Range
R = [K65536].End(xlUp).Row
If R < 3 Then Exit Sub
With Range("F3:K" & R)
     .Columns(5) = .Columns(1).Value
     .Columns(1) = .Columns(4).Value
     Union(.Columns(2), .Columns(4)).Delete Shift:=xlToLeft
End With
For Each xR In Range("F3:I" & R)
    If xR <> xR(1, -4) Then xR.Interior.ColorIndex = 37
Next
End Sub

Xl0000105.rar (13.71 KB)


=================================

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題