請問 "欄位" 轉 "欄號" 方式 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問 "欄位" 轉 "欄號" 方式

返回列表下一主題上一主題發帖

[發問] 請問 "欄位" 轉 "欄號" 方式

版主 Rank: 7 Rank: 7 Rank: 7

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

1^# 跳轉到 »

發表於 2020-2-10 12:49 | 顯示全部帖子

=IF(COUNT(-A1),LEFT(ADDRESS(1,A1,2),FIND("$",ADDRESS(1,A1,2))-1),COLUMN(INDIRECT(A1&1)))

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2020-2-10 13:00 | 顯示全部帖子

Sub TEST22()
Dim A, T
A = 92
If IsNumeric(A) Then
T = Split(Columns(A).Address(0, 0), ":")(0)
Else
T = Cells(1, A).Column
End If
MsgBox T
End Sub

靜思自在 : 並非有錢魷是快樂，問心無愧心最安。

返回列表下一主題上一主題