求助 转置问题

cjls2000

按要求

每行的4列

转置到一行上

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

hyy514

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

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

cjls2000

高实在是高[:50]  谢谢

pureshadow

函数法:
=INDIRECT("r"&INT((ROW(A1)+3)/4)&"c"&MOD(ROW(A1)-1,4)+1,)
还有内存数组函数法若干,就不列出来了.

pureshadow

利用F9多转一

pureshadow

代码多转一
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

cjls2000

希望看到VBA的写法[:33] [:27] [:27]

cjls2000

高实在是高[:50]

qq692436134

学习学习

pureshadow

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