Question

excel中如何用宏设置B工作表有规律的引用A工作表内容

.A工作表有很多组数据，比如

现在想在B工作表中提取出所有的姓名和对应的年龄，并且要按照ABCD村排序成
6
张1 25
王1 35
...
5
王2 10
... ...
6
周1 10
... ...
5
王3 31
...
这种格式中还是两列，其中6指该村6个人。怎么用宏搞出来呢，或者用=if语句，求高手解决

Answer 1

在模块插入如下VBA程序，执行即可：

Sub AtoB()
Dim j As Integer, i As Integer, k As Integer, imax As Integer, jmax As Integer
jmax = Worksheets("A").Cells(1, 256).End(xlToLeft).Column
k = 1
For j = 1 To jmax Step 2
imax = Worksheets("A").Cells(65536, j).End(xlUp).Row
Worksheets("B").Cells(k, 1) = imax - 2
k = k + 1
For i = 3 To imax
Worksheets("B").Cells(k, 1) = Worksheets("A").Cells(i, j)
Worksheets("B").Cells(k, 2) = Worksheets("A").Cells(i, j + 1)
k = k + 1
Next i
Next j
End Sub