Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1485|回复: 4

[VBA] 用VBA计算首次月份

[复制链接]
发表于 2016-9-10 09:46 | 显示全部楼层 |阅读模式
用VBA计算首次月份


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-9-10 10:15 | 显示全部楼层
看下 符合你的要求吗
Sub djk()
Dim i%, k%
k = [a1].CurrentRegion.Rows.Count
    For i = 1 To k - 1
        
         Cells(i + 1, "n") = range("a" & i + 1).End(xlToRight)(1 - i, 1)
      
    Next
End Sub

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 1 +1 收起 理由
laoau138 + 1 来学习

查看全部评分

回复

使用道具 举报

发表于 2016-9-10 11:03 | 显示全部楼层
还是楼上那个简便,可以直接用函数=INDEX(B$1:M$1,,MATCH(1=1,B2:M2<>"",))3键结束;
Sub sc()
    Dim arr, x%, y%
    arr = Range("a1").CurrentRegion
    For x = 2 To UBound(arr)
       If arr(x, 1) = "" Then Exit Sub
       For y = 2 To 13
        If arr(x, y) <> "" Then Cells(x, UBound(arr, 2)) = arr(1, y): Exit For
    Next y, x
End Sub

评分

参与人数 1 +1 收起 理由
laoau138 + 1 来学习

查看全部评分

回复

使用道具 举报

发表于 2016-9-10 12:30 | 显示全部楼层
苏子龙 发表于 2016-9-10 11:03
还是楼上那个简便,可以直接用函数=INDEX(B$1:M$1,,MATCH(1=1,B2:M2"",))3键结束;
Sub sc()
    Dim arr ...

函数还不是很懂啊
回复

使用道具 举报

 楼主| 发表于 2016-9-10 12:31 | 显示全部楼层
苏子龙 发表于 2016-9-10 11:03
还是楼上那个简便,可以直接用函数=INDEX(B$1:M$1,,MATCH(1=1,B2:M2"",))3键结束;
Sub sc()
    Dim arr ...

用了两种方法,你的答案更优
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 02:24 , Processed in 0.310381 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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