VBA通过Range对象实现Excel的数据写入

前言

本节会介绍通过VBA中的Range对象,来实现Excel表格中的单元格写入、区域范围写入,当然也可以写入不同类型的数据,如数值、文本、公式,以及实现公式下拉自动填充的功能。


一、单元格输入数据

1.通过Value方法实现输入不同类型的数据

向A1写入姓名(文本),A2写入年龄(数值),A3写入入学时间(日期),A4、A5、A6分别写入语数外成绩(数值),A7写入三科成绩之和(公式),代码如下:

c 复制代码
Sub InputData()

    Range("A1").Value = "小明"
    Range("A2").Value = 16
    Range("A3").Value = "2021-9-1"
    Range("A4").Value = 91.5
    Range("A5").Value = 95
    Range("A6").Value = 86
    Range("A7").Value = "=Sum(A4:A6)"
    
End Sub

2.单元格输入文本内容

向单元格输入文本内容时,需要将其输入的字符串需要用 双引号 引起来

需要注意的是,如果想要输入文本型数字时,例如常见的卡号、工号、身份证号等信息,则需要在数字前加 单引号

示例代码如下:

c 复制代码
    Range("B1").Value = "成绩单"
    Range("B2").Value = "ABCD"
    Range("B3").Value = "今天是:" & Format(Date,"yyyy-mm-dd")
    Range("B4").Value = "'001258"
    Range("B5").Value = "'110110199212220001"

3.单元格输入多行数据

向单元格输入多行数据时,可以使用换行符Char(10),如下示例中,向单元格A1中分三行输入"姓名","性别","年龄"

c 复制代码
	Range("A1").value = "姓名" & Chr(10) & "性别" & Chr(10) & "年龄"

4.单元格输入公式Formula

向单元格输入公式时,既可以使用Range的value 属性,也可以使用其Formula属性,两者执行的结果是一样的。

c 复制代码
    Range("C1").Value = "=Sum(A4:A6)"
    Range("C2").Formula = "=Sum(A4:A6)"

5.实例

题目:已知sheet1中A、B、C三列分别存放的学生语数外科目的成绩,需要在D列进行计算三科成绩的总和,注意:总行数未知

思路:因总行数未知,则需先根据A列获取到sheet1的总行数;其次计算和公式应该从D2开始写入=SUM(A2:C2);因行数较多,故以下代码应通过公式自动填充快速实现求和计算。

完整的代码如下:

c 复制代码
Sub SumScore()

    Dim ws As Worksheet
    Dim wb As Workbook
    Dim lastRow As Long
    
    ' 设置当前工作簿以及工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set wb = ThisWorkbook
    
    ' 通过A列获取最大行数
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 写入D2单元格汇总公式
    ws.Range("D2").Value = "=SUM(A2:C2)"
    
    ' 自动下拉填充所有行公式
    ws.Range("D2").AutoFill ws.Range("D2:D" & lastRow)
      
End Sub

二、单元格区域输入数据

1.输入行数据

通过Array函数,可以快速的输入一行数据,例如在第一行A1~D1输入行标题,代码如下:

c 复制代码
Range("A1:D1") = Array("语文成绩", "数学成绩", "外语成绩", "总成绩")

2.输入列标题

同样通过Array 函数快速输入一列数据,可以使用Transpose函数进行转置,代码如下:

c 复制代码
Range("A1:A4") = WorksheetFunction.Transpose(Array("姓名", "性别", "班级", "成绩"))

3.区域输入相同的数据

在A1:E10区域范围内快速输入相同的内容,代码如下:

c 复制代码
	Range("A1:E10").Value = 100

4.示例

题目:已知有两张sheet,需要将Sheet1中的A-E列的数据完全复制到Sheet2中B-F列中,完整的代码如下:

c 复制代码
Sub CopyData()

    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim wb As Workbook
    Dim lastRow As Long
    
    ' 设置当前工作簿以及工作表
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    Set wb = ThisWorkbook
    
    ' 通过A列获取最大行数
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    ' 将sheet1中的A-E列数据复制到Sheet2中的B-F列
    ws2.Range("B1:F" & lastRow).Value = ws1.Range("A1:E" & lastRow).Value
    
End Sub
相关推荐
Python大数据分析@27 分钟前
python操作CSV和excel,如何来做?
开发语言·python·excel
John.liu_Test1 小时前
js下载excel示例demo
前端·javascript·excel
ruleslol3 小时前
VBA02-初识宏——EXCEL录像机
excel·vba
IT铺子3 小时前
制定Excel使用规范和指导,提升数据处理的效率和准确性,减少错误和数据丢失的风险
excel
是萝卜干呀3 小时前
Backend - Python 爬取网页数据并保存在Excel文件中
python·excel·table·xlwt·爬取网页数据
神奇夜光杯9 小时前
Python酷库之旅-第三方库Pandas(202)
开发语言·人工智能·python·excel·pandas·标准库及第三方库·学习与成长
小c君tt10 小时前
MFC中Excel的导入以及使用步骤
c++·excel·mfc
一名技术极客12 小时前
Vue2 doc、excel、pdf、ppt、txt、图片以及视频等在线预览
pdf·powerpoint·excel·文件在线预览
用余生去守护12 小时前
【反射率】-- Lab 转换(excel)
excel
进击的六角龙12 小时前
Python中处理Excel的基本概念(如工作簿、工作表等)
开发语言·python·excel