![](https://img-blog.csdnimg.cn/20201014180756738.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
chao3900
这个作者很懒,什么都没留下…
展开
-
[VBA] 列的序数转列
intColumn 1 = column APublic Function func_NumToCol(ByVal lngColumn As Long) As StringOn Error GoTo lb_cannot_resolve Dim strAddress As String strAddress = Range("A1").Offset(0, lngColumn - 1).原创 2008-05-23 00:22:00 · 410 阅读 · 0 评论 -
[VBA] 列转列序数
column A = intColumn 1Public Function func_coltonum(ByVal strColumn As String) As LongOn Error GoTo lb_cannot_resolve func_coltonum = Range(strColumn & "1").Column Exit Functionlb_cannot_resolv原创 2008-05-24 01:07:00 · 513 阅读 · 0 评论 -
[VBA] 按任意一列做降序排序
Public Const STRPIVOTKEYWORKING_START = "A1"ThisWorkbook.Worksheets.CalculateColumns(Range(STRPIVOTKEYWORKING_START).Column).Select Selection.Sort Key1:=Range(STRPIVOTKEYWORKING), Order1:=xlDesc原创 2008-06-02 01:17:00 · 6680 阅读 · 0 评论