Excel VBA宏编程实现Excel表数据填充

最新推荐文章于 2025-02-25 08:24:08 发布

二刺猿小帅锅

最新推荐文章于 2025-02-25 08:24:08 发布

阅读量813

点赞数 11

文章标签： excel ui

本文链接：https://blog.youkuaiyun.com/swrite/article/details/144816375

版权

使用场景

当需要将一个表格里的数据获取。然后往另外一个表格里填充的时候可以通过excel vba编程达到对数据快速处理的方式。虽然现在比较流行Python，但是VBA贵在不用准备环境。
例如将表1成绩姓名填到表2里。
表1数据
表2数据

点击 ALT+F11，进入VBA界面。

右键点击Microsoft Excel 对象->插入->模块。
插入模块
双击新建的模块，输入代码。
新建模块
然后回到表格->ALT+F8->选中刚刚写的函数->点击执行。
执行函数
姓名修改后结果如图

代码如下图

@Override
	Sub FillCellsBasedOnN()
    Dim n As Integer
    Dim lastN As Integer
    Dim targetCell As Range
    Dim sourceCell As Range
    ' 此代码只写了姓名数据怎么替换
    ' 你可以根据需要设置lastN的值，它表示你想要填充的最后一个值在第几行
    lastN = 36
        
    ' 循环从1到lastN
    For n = 1 To lastN
        ' 需要填充数据目标单元格的地址，例如B2, B6, B10, B14, B16...
        Set targetCell = ThisWorkbook.Sheets("Sheet2").Range("B" & (n * 4 - 2))