![](https://img-blog.csdnimg.cn/20201014180756930.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
EXECL
hajiaojh
这个作者很懒,什么都没留下…
展开
-
EXECL 用VBA 隔行填有规律的数据
如上图中,在A行自动插入如B行有规律的值,1 -12月份。Sub ghts()Dim i As Integer '12个月Dim n As Integer '6Dim y As Integer '月份Dim yf As Stringy = 2For i = 1 To 12 For n = 1 To 6 If n < 6 Then yf = CStr(i) + "月" Cells(y, 1) = yf y = y + 1 ...原创 2021-08-24 22:08:00 · 393 阅读 · 0 评论 -
求A列小于B列两两之间的首次行数
百度中回答别人提的问题,但回答的内容不知啥原因违背回答规则,不让显示。例如A列83和89之间,小于B列76,首次遇到的是73即第7行;再如A列89和73之间,小于B列66,首次遇到的是59即第12行用宏方法解决:Sub schs() Dim i As Integer 'b行循环值 Dim s As Integer 'b行下一个不为0的值 Dim n As Integer 'A行循环 Dim y As Integer '记录B行当前不为0的行供A行.原创 2021-08-24 21:15:12 · 79 阅读 · 0 评论 -
EXECL 获取断续数据的开头和结尾的数据(宏)
需求: 判断序号行的数据是否连续,在开头字段写入序号中连续数据的第一个数,结尾字段写入连续数据的最后一个数。Sub 判断是否连续() Dim i As Integer Dim s As Integer '写入开头第一个数据 Cells(2, "C") = Cells(2, "B") '记录结尾数据需要写入的行数 s = 2 For i = 3 To 30 '判断下一行数据和上一行数据是否连续 If Cells(i, ...原创 2021-08-23 19:55:34 · 184 阅读 · 0 评论