如何将excel表格中多行的部分数据分别提取到另一表格中指定的多行固定位置？

我假设需要将表1.xls的数据插入到表2.xls，表1 格式如下

可以用公式实现，首先需要把待填充的行筛选出来，可以在第二张表格最后添加一列，添加公式如下 =IF(MOD(ROW(K1),11)=4,1,0) 然后将1的值筛选出来，如下图

然后再A4处写入公式 =INDIRECT(ADDRESS(ROW(A4)/11+1,COLUMN(A4)+1,4,TRUE,"[表1.xls]Sheet1"))  并复制到B4

在C4处写入公式 =INDIRECT(ADDRESS(ROW(C4)/11+1,COLUMN(C4)+2,4,TRUE,"[表1.xls]Sheet1"))  并一直复制到K4

然后将这一行复制到其他各行即可

其中如果表1中的首行不是1，只要修改ADDRESS(ROW(C4)/11+行号 即可

比如有两个位置：表A的（2,1）,表B的（2,1）,代码如下：

Dim db As Database

Dim rst1, rst2 As Recordset

Dim sql1, sql2 As String

Dim a As Single

'以上是声明变量

Set db = CurrentDb

sql1 = "select * from 表A"

Set rst1 = db.OpenRecordset(sql1)

'打开记录集rst1

rst1.Move 2

'指针移到第3行

a = rst1.Fields(1)

'给变量赋值

sql2 = "select * from 表B"

Set rst2 = db.OpenRecordset(sql2)

rst2.Move 2

'打开另一记录集并移动指针到指定位置

rst2.Edit

rst2.Fields(1) = a

rst2.Update

'更改字段值

---