最后一根稻草 excel高手江湖救急 在下不甚感激

来源：百度知道 编辑：UC知道 时间：2024/06/06 12:51:32
我在工作中遇到一些数据需要处理，直接上图 如图片所描述
图片地址 http://i3.6.cn/cvbnm/16/df/f4/2ebe44b275ac9c23833023ccb4e924ea.jpg

按你的图片来做
在E5输入公式：
=OFFSET(A$1,MOD(ROW(A1)-1,2),(ROW(A1)-1)/2)
在F5输入公式：
=OFFSET(H$1,MOD(ROW(A1)-1,2),(ROW(A1)-1)/2)
两公式向下填充即可。

看看下面的VBA能不能用上

Sub 行列转换()
Dim i, j, x As Integer
x = 1
With ActiveSheet
For i = 1 To 12 '列数
For j = 1 To 2 '行数
.Cells(x + 4, 1) = .Cells(j, i) '结果存放在A5以下的单元格
x = x + 1
Next j
Next i
End With
End Sub

先选中横表格，复制到剪贴板；
找到需要复制到的目标位置，执行编辑-选择性粘贴，选择“转置”即可。

VBA是最快的了 见我空间联系