ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 177|回复: 7

[求助] 如何能将数字4变为D?求大佬指点?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-9-14 20:31 | 显示全部楼层 |阅读模式
通过循环获得列的最大标如12,如何能将12转换为对应的列字母L?
需要如何表述?求指点。谢谢

TA的精华主题

TA的得分主题

发表于 2020-9-14 20:37 | 显示全部楼层
split(cells(1,i).address,"$")(1)

评分

参与人数 1鲜花 +2 收起 理由
开开惢惢 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-9-14 20:44 | 显示全部楼层
Sub 数值转字母()
   Dim i, col, zm
   col = Cells(1, Columns.Count).End(xlToLeft).Column
   zm = Mid(Cells(1, col).Address, 2, Len(Cells(1, col).Address) - 3)
   Debug.Print zm
End Sub

TA的精华主题

TA的得分主题

发表于 2020-9-14 20:48 | 显示全部楼层
求出最大列号 col(如12), 用cells(1,col).address =$L$1, 然后用mid(cells(1,col).address函数去除两端,就可的到L

TA的精华主题

TA的得分主题

发表于 2020-9-14 20:48 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-9-14 20:57 | 显示全部楼层
超过26列时,
if i>26 then  s=Mid(cells(1, i).address, 2, 2)
  

TA的精华主题

TA的得分主题

发表于 2020-9-14 22:33 | 显示全部楼层
本帖最后由 liuxi001 于 2020-9-14 22:40 编辑

  1. '列序号_字母转换
  2. Function abc2num(Number As Variant) As Variant
  3.     Dim intI As Integer, dblNum As Double
  4.     Dim strChar As String, intPos As Integer
  5.     Const conStrList = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  6.     If IsNumeric(Number) Then
  7.         dblNum = Number
  8.         Do Until dblNum = 0
  9.             abc2num = abc2num & Mid(conStrList, IIf(((dblNum - 1) + 1) Mod 26 = 0, 26, ((dblNum - 1) + 1) Mod 26), 1)
  10.             dblNum = (dblNum - 1) \ 26
  11.         Loop
  12.         abc2num = StrReverse(abc2num)
  13.     Else
  14.         For intI = Len(Number) To 1 Step -1
  15.             strChar = Mid(Number, intI, 1)
  16.             intPos = InStr(conStrList, UCase(strChar))
  17.             abc2num = abc2num + intPos * 26 ^ (Len(Number) - intI)
  18.         Next
  19.     End If
  20.     If abc2num = 0 Or abc2num = "" Then abc2num = "#VALUE"
  21. End Function
复制代码

TA的精华主题

TA的得分主题

发表于 2020-9-14 22:35 | 显示全部楼层
如果取值只是在A-Z之间
来个简单粗暴的方法  

i=12
CHR(i+64)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-9-23 20:07 , Processed in 0.067499 second(s), 17 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2021 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表