標題: [發問] 把數字整理 求教 [打印本頁]

---

作者: adrian_9832    時間: 2019-2-26 10:25     標題: 把數字整理 求教

當A列的 資料 有齊 1-9 的時候 就 在B列 寫上小一個位的數字

請問要怎樣用VBA 或 方程 去形成圖片中 B2 的結果


另附上EXCEL檔

---

作者: 准提部林    時間: 2019-2-26 11:44

B1/陣列公式:
=IF(COUNT(0/COUNTIF(A:A,A1+ROW($1:$9)))=9,INT(A1/10),"")

---

作者: hcm19522    時間: 2019-2-26 11:45

{=IF(AND(ROW($1:$10)-1-RIGHT(0&A1:A10)=0),LEFT(A1,LEN(A1)-1),"")

---

作者: adrian_9832    時間: 2019-2-26 14:04

回復 2# 准提部林


    好像不太成功 我在b列輸入後 沒反應 :dizzy:

---

作者: adrian_9832    時間: 2019-2-26 14:07

回復 3# hcm19522

成功了 謝謝大大幫助; 假設想同時 變顏色 應該怎改嗎

---

作者: adrian_9832    時間: 2019-2-26 16:51

想請問vba 是如何表達的

現在我的進度是這樣
Sub TEST()

x = 1
a = 1
Count = 0

Do Until Cells(x, 1) = ""

Set currentcell = Cells(x, 1)


If Right(currentcell, 1) = "0" Then

Set nextCell = currentcell.Offset(1, 0)
   
        If Val(currentcell) + 1 = nextCell Then
            abc = Val(currentcell)
            Count = Count + 1
            Else
            Count = 0
        End If
        i

   
End If




x = x + 1
Loop















End Sub

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)