阿Q吧 > 怎样用vba在excel表格里提取一列数据比如想提取b4到b48这一段怎么写代码呀，跪求代码

怎样用vba在excel表格里提取一列数据比如想提取b4到b48这一段怎么写代码呀，跪求代码

2025-04-14 14:56:05

推荐回答（2个）

回答1：

提取B4的值

dim a as string '定义成字符串格式
a=range("B4") '将B4的值赋予变量a

'=============================
dim a as range '定义range变量
a=range("b4:b48") '将B4：B48赋予a
b=a(0)'将a中的第一个值（B4的值）赋予b

'============================
'将“表格名字1”的A1输入1 如下
sheets("表格名字1").cells(1,1)=1
'cells(行，列)
sheets("表格名字1").range("a1")=1
'其他类似写法

回答2：

下面这段将B4:B48单元格区域复制粘贴到A1单元格
sub test()
range("B4:B48").copt range("A1")
end sub