返回列表 上一主題 發帖

[發問] 把數字整理 求教

[發問] 把數字整理 求教

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

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


另附上EXCEL檔

TEST.JPG (182.24 KB)

TEST.JPG

TEST1.rar (7.4 KB)

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

TOP

{=IF(AND(ROW($1:$10)-1-RIGHT(0&A1:A10)=0),LEFT(A1,LEN(A1)-1),"")
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

回復 2# 准提部林


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

TOP

回復 3# hcm19522

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

TOP

想請問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

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事,就等於壽命有多長。因此必須與時間競爭,切莫使時日空過。
返回列表 上一主題