[發問] 把數字整理 求教

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-2-26 10:25 | 只看該作者

[發問] 把數字整理求教

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

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

另附上EXCEL檔

TEST.JPG (182.24 KB)

TEST1.rar (7.4 KB)

樓主熱帖

准提部林

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

2^#

發表於 2019-2-26 11:44 | 只看該作者

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

hcm19522

大學生 Rank: 4

帖子: 1360
主題: 4
精華: 0
積分: 1370
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-4-19

熱烈參與勳章

3^#

發表於 2019-2-26 11:45 | 只看該作者

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

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

4^#

發表於 2019-2-26 14:04 | 只看該作者

回復 2# 准提部林

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

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

5^#

發表於 2019-2-26 14:07 | 只看該作者

回復 3# hcm19522

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

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

6^#

發表於 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