VBA实现 Excel自动填充

小驴嗷嗷叫

于 2020-05-11 11:07:25 发布

阅读量5.2k

点赞数 4

文章标签： vba excel

本文链接：https://blog.csdn.net/oqqMi123456789555/article/details/106049735

版权

遇到这种情况时，使用！
数百次的向下自动填充，手动敲？
在这里插入图片描述
简单的VBA代码搞定：

Sub 自动填充()
Dim i As Integer
For i = 2 To 743
    If Range("b" & i) = ""

博客等级

码龄12年

关注

私信

整理合并各工作表的某行（列）到一个工作表
好彩自然来来来: [code=javascript] Sub 合并行数据() ' ' Dim i As Byte '定义一个Byte类型的变量，名称为i Dim j As Byte For i = 1 To Worksheets.Count - 1 Step 1 'i从1到“工作表的数量-1”循环 Sheets(i).Select '选择第i个工作表（从左往右数） Rows("202:202").Select '选择第44行整行单元格 Selection.Copy '复制选中的单元格 Sheets("1").Select '选择名称为"Sheet3"的工作表 Range("a" & i).Select '粘贴到Ai单元格 ActiveSheet.Paste Columns("A:A").Select '选中第A列整列 Next i Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbo '在第A列前插入一列 For j = 1 To Worksheets.Count - 1 Step 1 'i从1到“工作表的数量-1”循环 Sheets(j).Select '选择第i个工作表（从左往右数） Range("B2").Select '选择B2单元格 Selection.Copy '复制选中的单元格 Sheets("1").Select '选择名称为"Sheet3"的工作表 Range("A" & j).Select [/code]
《跟着王老师学Excel VBA》的笔记
天是海的尽头: 我想问最开头那里的子程序sum abc()里的sum是什么鬼,不应该是Sub吗
《跟着王老师学Excel VBA》的笔记
小驴嗷嗷叫: 直接在这个网站上记的
《跟着王老师学Excel VBA》的笔记
m0_52695684: 这笔记在什么app记得呀
《跟着王老师学Excel VBA》的笔记
weixin_45051823: 这个截图什么软件呀