請問 "欄位" 轉 "欄號" 方式 - Excel程式區

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

1^# 跳轉到 »

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

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

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

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。