- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-5-1
|
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)
================================= |
|
發表於 2020-4-19 10:16
| 