返回列表 上一主題 發帖

特定顏色儲存格排序問題

n7822123
　暱稱: 阿龍

中學生Rank: 2

帖子
406 
主題
8 
精華
0 
積分
453 
點名
0  
作業系統
WINDOWS 7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2015-2-7 
最後登錄
2021-7-31 
1# 跳轉到 »
發表於 2020-7-16 02:08 | 顯示全部帖子
本帖最後由 n7822123 於 2020-7-16 02:23 編輯

回復 1# mdr0465

如果不是看了附件，只單純看你的文字敘述的話，還真的是 看不太懂!

這樣吧，我整理了一下你的需求，你再看看是不是你要的

1.當B欄有資料時，A欄要給編號，且從1開始，無資料則跳過不給編號

2.當B欄有資料時，但是B欄有顏色 (不是無色，也不是淡紫色)，則A欄不給編號

3.B欄前11碼若一樣，則A欄編號一樣，且要合併儲存格?

4.B欄遇到淺紫色(只認淺紫色)，A欄編號重置，下次再從1開始

程式如下

Sub Test()  
Dim Arr, Brr As Range, R&, Idx&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Brr = Range([A4], Cells(Rows.Count, 2).End(3))
With Brr.Resize(, 1)
   .UnMerge: .Borders.LineStyle = 1
   .ClearContents: .HorizontalAlignment = 3
End With
Arr = Brr
For R = 2 To UBound(Arr)
  If Arr(R, 2) <> "" And Brr(R, 2).Interior.ColorIndex = xlNone Then
    If Left(Arr(R, 2), 11) <> Left(Arr(R - 1, 2), 11) Then
      Idx = Idx + 1: Arr(R, 1) = Idx
    Else  '合併儲存格
      Range(Brr(R, 1), Brr(R - 1, 1)).Merge
    End If
  End If
  If Brr(R, 2).Interior.Color = RGB(217, 226, 243) Then Idx = 0
Next R
Brr = Arr
End Sub

檔案如下

庫存表.rar (116.62 KB)
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題