excel中宏简单应用

关注

原创最新推荐文章于 2026-07-01 15:42:36 发布 731 阅读 AI 写同款· GEO 优化 ›

Excel文件合并教程：手动与VBA宏自动化方法 VBA语言基于 BASIC 编程语言，是为Microsoft Office套件中的应用程序定制的。它允许用户创建和运行宏，自动执行一系列操作。VBA还支持多种数据类型、控制结构和面向对象的编程特性，提供了非常丰富的编程接口。由于VBA嵌入在Office套件中，开发者可以直接与Word文档、Excel工作表、PowerPoint演示文稿中的对象进行交互。VBA的开发环境称为Visual Basic编辑器（VBE），它提供了一个代码编辑器、调试工具和项目资源管理器。阅读详情

1. Range("B27") 表示第27行第2列的单元格的值
2. ActiveCell.Offset(1, 2)标识活动单元格的下移一行两列
3. ActiveCell.Row获得活动单元的行数
4. Cells(1,3).Value 标识第一行第3列的单元格的值，表示当前工作表
5. Worksheets("Sheet1")表示工作表Sheet1

'Range("B27") = ActiveCell.Row 把当前单元格的**行数**赋值给“B27”单元格

'Range("B27") = ActiveCell.Rows 把当前单元格的**值**赋值给“B27”单元格

   ' Dim mrow As Integer
   ' mrow = ActiveCell.row + 1
   ' Cells(1, 3).Value = 111

   ' Range("B28") = ActiveCell.Value 把活动单元格的值付给“B28”

复制当前活动单元格所在行数的值（前20列）到下一行
    Dim mrow As Integer
    Dim mcol As Integer
    mrow = ActiveCell.row
    For mcol = 1 To 20
    Cells(mrow + 1, mcol).Value = Cells(mrow, mcol).Value
    Next mcol

获得每周周一日期，
Sub getdate()
ActiveCell.Value = Date - Weekday(Date, vbMonday) + 1
End Sub
'注释 Date 获得当前日期 Weekday(Date, vbMonday)获得对应时间的是周几

ActiveCell.Borders.Color = RGB(255, 0, 0)
ActiveCell.Font.Color = RGB(255, 0, 0)