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

Question

提取到别的sheet里怎么办啊，我是一个菜鸟，例如有两列数据，第一列是b列，全部是数据名字，第二列是c列，全部是数据范围比如b列是：员工id c列是0-12，数据在另一个文件中，然后还要去那个存储数据的文件中去提取数据，这要怎么做啊前辈们

Answer 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
'其他类似写法

Answer 2

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