在VBA中,对Excel单元格的操作方法 (qo+op)

一、读取单元格内容

读取单元格的内容,将单元格的值赋给一个变量。例如,读取A1单元格的内容并打印到窗口。

vbnet 复制代码
Sub Cell()
Dim cellContent As String
cellContent = Worksheets("Sheet1").Range("A1").Value
Debug.Print cellContent
End Sub

二、修改(填充)单元格内容

修改单元格内容与访问单元格并赋值类似。例如,将A1单元格的内容修改为"Hello, VBA!"。

vbnet 复制代码
Sub Cell()
Worksheets("Sheet1").Range("A1").Value = "Hello, VBA!"
End Sub

三、循环遍历单元格

3.1、填充

使用循环来遍历单元格。例如,遍历填充Sheet1上A1到A10的单元格。

vbnet 复制代码
Sub Fill()
'遍历填充数据
Dim i As Integer
For i = 1 To 10
    Worksheets("Sheet1").Cells(i, 1).Value = "Row " & i
Next i
End Sub
3.2、获取

使用循环来遍历单元格。例如,遍历获取Sheet1上A1到A10的单元格

vbnet 复制代码
Sub Obtain()
'遍历获取数据
Dim cellContent As String
Dim i As Integer
For i = 1 To 10
    cellContent = Worksheets("Sheet1").Cells(i, 1).Value
    Debug.Print cellContent
Next i
End Sub

四、更改单元格格式

4.1、字体

更改单元格的字体格式,如字体、颜色、大小等。例如,将A1单元格的字体设置为楷体、蓝色、加粗和字体大小为12。当然了,还有字体的其它属性这里就不一一介绍了。

vbnet 复制代码
Sub Font()
With Worksheets("Sheet1").Range("A1").Font
    .Name = "楷体"
    .Color = RGB(0, 0, 255)
    .Bold = True
    .Size = 16
End With
End Sub
4.2、单元格的背景色

将A1单元格背景颜色设置为浅黄色。

vbnet 复制代码
Sub Interior()
With Worksheets("Sheet1").Range("A1").Interior
    .Color = RGB(255, 255, 204)
End With
End Sub
4.3、单元格的边框
vbnet 复制代码
Sub Borders()
With Worksheets("Sheet1").Range("A1").Borders
    .LineStyle = xlContinuous   '设置边框为实线
    .Color = RGB(0, 0, 0)       '设置边框颜色为黑色
    .Weight = xlThin            '设置边框粗细为细线
End With
End Sub

五、插入和删除单元格(行)

5.1、插入
vbnet 复制代码
Sub Insert()
Worksheets("Sheet1").Rows(1).Insert Shift:=xlDown
End Sub
5.2、删除
vbnet 复制代码
Sub Delete()
Worksheets("Sheet1").Rows(1).Delete
End Sub

六、插入和删除单元格(列)

6.1、插入
vbnet 复制代码
Sub Insert()
Worksheets("Sheet1").Columns(1).Insert Shift:=xlDown
End Sub
6.2、删除
vbnet 复制代码
Sub Delete()
Worksheets("Sheet1").Columns(1).Delete
End Sub

七、合并单元格

合并单元格可以使用Merge方法。例如,合并A1到C1的单元格

vbnet 复制代码
Sub Merge()
Worksheets("Sheet1").Range("A1:C1").Merge
End Sub
相关推荐
葡萄城技术团队1 天前
从100秒到10秒的性能优化,你真的掌握 Excel 的使用技巧了吗?
excel
QQ3596773452 天前
ArcGIS Pro实现基于 Excel 表格批量创建标准地理数据库(GDB)——高效数据库建库解决方案
数据库·arcgis·excel
星空的资源小屋4 天前
Digital Clock 4,一款免费的个性化桌面数字时钟
stm32·单片机·嵌入式硬件·电脑·excel
揭老师高效办公4 天前
在Excel和WPS表格中批量删除数据区域的批注
excel·wps表格
我是zxb4 天前
EasyExcel:快速读写Excel的工具类
数据库·oracle·excel
辣香牛肉面4 天前
[Windows] 搜索文本2.6.2(从word、wps、excel、pdf和txt文件中查找文本的工具)
word·excel·wps·搜索文本
ljf88384 天前
Java导出复杂excel,自定义excel导出
java·开发语言·excel
tebukaopu1484 天前
json文件转excel
json·excel
shizidushu4 天前
How to work with merged cells in Excel with `openpyxl` in Python?
python·microsoft·excel·openpyxl
Eiceblue5 天前
使用 C# 设置 Excel 单元格格式
开发语言·后端·c#·.net·excel