promotion image of download ymail app
Promoted
小妹 發問時間: 電腦與網際網路軟體 · 8 年前

請問如何讓exce,分類相同數據,且編號自動key

我想從好幾千筆 <商品資料> 中,

在已知相同的商品資料 <ex條碼一樣的,或其他商品名稱一樣>,

自動分類key入代碼 ex: 一、二、三、四、五...,

且這一、二、三、四、五..........且會合併儲存格 (意思是各只有一個代表族群的代碼就好),

例如:

分類 條碼

一 2011081352

一 2011081352

二 2012030316

二 2012030316

二 2012030316

三 2010071165

三 2010071165

三 2010071165

三 2010071165

四 2012011197

四 2012011197

五 2002050812

五 2002050812

五 2002050812

五 2002050812

... .....................

... .....................

.... .....................

請問有什麼方式可以讓exce,分類相同數據,且編號自動key入,

請高手解答,感謝!

3 個解答

評分
  • 8 年前
    最佳解答

    <範例檔>以VBA處理:

    http://www.funp.net/137604

    2012-03-09 10:20:47 補充:

    EXCEL VBA.將〔相同且連續〕品號〔編定序號〕及〔合併儲存格〕

                           <.准提部林.>

    -------------------------------

    ■公式:僅能編定〔序號〕。

     =IF(B2=B1,A1,MAX($A$1:A1)+1)

     

     <處理結果>分類 條碼1 20110813521 20110813522 20120303162 20120303162 20120303163 20120303224 20100711654 20100711654 20100711654 20100711655 20120111975 20120111976 2012013108

    ■程式碼:

     Sub 同號合併及加序號()

     Dim xRow$, xR As Range, uHead As Range, j&, Jm&

     xRow = [B65536].End(xlUp).Row

     If xRow < 2 Then Exit Sub

     Application.ScreenUpdating = False

     For j = 2 To xRow

       Set xR = Range("B" & j)

       If xR <> xR(0, 1) Then Set uHead = xR

       If xR <> xR(2, 1) Then

         Jm = Jm + 1

         uHead(1, 0) = Jm

         Application.DisplayAlerts = False

         Range(uHead, xR).Merge

         Range(uHead(1, 0), xR(1, 0)).Merge

       End If

     Next j

     End Sub

     

     <處理結果>分類 條碼1 20110813522 20120303163 20120303224 20100711655 20120111976 2012013108

      

    ■說明:

     將 Range(uHead, xR).Merge 這行刪去,則以下列方式呈現。

     

     <處理結果>分類 條碼1 2011081352 20110813522 2012030316 2012030316 20120303163 20120303224 2010071165 2010071165 2010071165 20100711655 2012011197 20120111976 2012013108

    -------------------------------

    <範例檔>:

    http://www.funp.net/137604

    -------------------------------

    • Commenter avatar登入以對解答發表意見
  • 8 年前

    板大你可以嘗試使用Excel 樞紐分析表 可以得到你要的答案

    • Commenter avatar登入以對解答發表意見
  • 鬍鬚
    Lv 7
    8 年前

    假設原資料在Sheet1的A1~A100(第1列為標題),Sheet2設定:

    A2=INDEX(Sheet1!$A$2:$A$100,MATCH(0,COUNTIF($A$1:A1,Sheet1!$A$2:$A$100),0))&""

    B2=IF(A2="","",VLOOKUP(A:A,Sheet1!A:B,2,0))

    A2,B2下拉複製

    2012-03-07 08:31:42 補充:

    網友們提供的意見版大看到了嗎?合不合用?

    2012-03-09 08:07:47 補充:

    發問快到期了,提問者都不回應,准大的答案似乎較符合題意,請上答吧!

    • Commenter avatar登入以對解答發表意見
還有問題?馬上發問,尋求解答。