Excel排版问题

显示全部楼层 · 2008-7-15 18:47:09

请问能不能将几个分离的、有相同部分的表格合并成为一个表格：
比如：
（表1）
热量(千卡)284 硫胺素(毫克).22 钙(毫克)11
蛋白质(克) 8.3 核黄素(毫克).07 镁(毫克)39
（表2）
热量(千卡)317 硫胺素(毫克).4 钙(毫克)34
蛋白质(克) 11.9 核黄素(毫克).1 镁(毫克)4
（表3）
热量(千卡)277 硫胺素(毫克).14 钙(毫克)2
蛋白质(克) 8.6 核黄素(毫克)0 镁(毫克)30
……
合并成为：
热量(千卡)|硫胺素(毫克)|钙(毫克)|蛋白质(克)|核黄素(毫克)|镁(毫克)
284
|
.22
|
11| 8.3
|
.07
|39
317
|
.4
|
34|11.9
|
.1
| 4
277
|
.14
|
2| 8.6
|
0
|30
……
可以这样排吗？
可以的话请教一下方法，类似的也可以，谢谢！

千问 · 2008-7-15 18:47:09

用宏做比较简单：Sub yueliang()Dim i, j, l, k, m As Integerm = Range("A65536").End(xlUp).Rowk = 1For i = 2 To 9
For j = 1 To 5 Step 2
Sheets(2).Cells(1, k) = Sheets(1).Cells(i, j)
k = k + 1
NextNextFor l = 0 To m Step 11k = 1
For i = 2 To 9
For j = 2 To 6 Step 2
Sheets(2).Cells