求教EXCEL小问题~谢谢！！！高分啊~

来源：百度知道 编辑：UC知道 时间：2024/06/08 13:30:26
Message type: SMS
To (From): AAA
Date: 星期二 2008 六月 17 18:12
-----------------------------------------------------------
1
2
===========================================================
===========================================================
Message type: SMS
To (From): BBB
Date: 星期二 2008 六月 17 18:06
-----------------------------------------------------------
3
4
===========================================================

如上数据，是sheet1的A1-A15行
现在我想在sheet2里把A1和A9这种相同的固定内容都放在新表的A列里
把A2和A10这种信息放在B列里
把A3和A11这种信息放在C列里
把A5、A6、A13、A14放在D列里，并对应在前面的正确的日期后。
请教，我应该怎么实现？
类似这样的数据有很多，只是列举了2条。。最好能写成循环。谢谢！！！

这样做啦，看看能不能满足你的要求
在Sheet2的A1单元格写公式“=IF(MOD(ROW(A1),2)=1,INDIRECT("Sheet1!R"&((ROW(A1)+1)*4-7)&"C1",FALSE),"")”，B1单元格写公式“=IF(MOD(ROW(A1),2)=1,INDIRECT("Sheet1!R"&((ROW(A1)+1)*4-6)&"C1",FALSE),"")”，C1单元格写公式“=IF(MOD(ROW(A1),2)=1,INDIRECT("Sheet1!R"&((ROW(A1)+1)*4-5)&"C1",FALSE),"")”，D1单元格写公式“=IF(MOD(ROW(A1),2)=1,INDIRECT("Sheet1!R"&((ROW(A1)+1)*4-3)&"C1",FALSE),INDIRECT("Sheet1!R"&(ROW(A1)*4-2)&"C1",FALSE))”
然后选中A1:D1，向下填充至足够的行即可
试试吧，祝你成功！

SHEET2表A1输入公式:
=INDEX(Sheet1!$A:$A,8*(ROW()-1)+COLUMN())&""
将公式向右复制到C1单元格.

在SHEET2表D1输入公式:
=INDEX(Sheet1!$A:$A,8*(ROW()-1)+5)&" "&INDEX(Sheet1!$A:$A,8*(ROW()-1)+6)&""

将A1:D1四个公式向下复制.

ALT+F11,新建一模块:
复制以下代码,F5即可.
Sub yueliang()
Dim i, j, l As Integer
l = 1
For i = 2 To 104
Sheets(2).Cells(l, 1) = Sheets(