Office中国论坛/Access中国论坛

标题: 求助转置问题 [打印本页]

作者: cjls2000 时间: 2008-5-29 15:50
标题: 求助转置问题
按要求

每行的4列

转置到一行上

用VBA 公式都可以只要能是实现
[:28] [:28] [:28]

作者: pureshadow 时间: 2008-5-29 17:06
又用VBA?大炮打蚊子......至少有十种技巧和函数法可以解决

提供一个最好操作的:
复制到WORD里,无格式粘贴,^w替换成^p,再贴回EXCEL.

作者: qq692436134 时间: 2008-5-29 18:26
学习学习

作者: cjls2000 时间: 2008-5-30 06:06
高实在是高[:50]

作者: cjls2000 时间: 2008-5-30 06:07
希望看到VBA的写法[:33] [:27] [:27]

作者: pureshadow 时间: 2008-5-30 12:57
代码多转一
Sub aa()

Columns("f:f").Clear

Dim myrow As Long
Dim mycol As Long

myrow = Range("a1").CurrentRegion.Rows.Count
mycol = Range("a1").CurrentRegion.Columns.Count

x = 1
For i = 1 To myrow
For m = 1 To mycol

Cells(x, 6) = Cells(i, m)
x = x + 1

Next m
Next i

End Sub

作者: pureshadow 时间: 2008-5-30 12:59
利用F9多转一

作者: pureshadow 时间: 2008-5-30 13:05
函数法:
=INDIRECT("r"&INT((ROW(A1)+3)/4)&"c"&MOD(ROW(A1)-1,4)+1,)
还有内存数组函数法若干,就不列出来了.

作者: cjls2000 时间: 2008-6-6 08:57
高实在是高[:50] 谢谢

作者: hyy514 时间: 2008-6-14 14:00

原帖由 pureshadow 于 2008-5-29 17:06 发表
又用VBA?大炮打蚊子......至少有十种技巧和函数法可以解决
提供一个最好操作的:
复制到WORD里,无格式粘贴,^w替换成^p,再贴回EXCEL.

..................
哈哈,小妖的基础应用顶呱呱!!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)