Question

求一个Excel宏或者公式

求一个Excel宏或者公式

Answer 1

Public Sub 合并列()
Dim i As Long, rowFst As Long, rowSnd As Long
i = 1
Do While ActiveSheet.Range("A1").Offset(0, i * 3) <> ""
rowFst = ActiveSheet.Range("A35536").End(xlUp).Row
rowSnd = ActiveSheet.Range("A35536").Offset(0, i * 3).End(xlUp).Row
ActiveSheet.Range("A1:C" & rowSnd).Offset(0, i * 3).Copy
ActiveSheet.Range("A" & (rowFst + 1)).Select
ActiveSheet.Paste
i = i + 1
Loop
ActiveSheet.Columns("D:XFD").Delete
ActiveSheet.Range("A1").Select
End Sub
'【说明】：以上代码适用于EXCEL2007或更新的版本，2003版的估计会报错

Answer 2

=OFFSET(D$1,MOD(ROW(A1)-1,10),INT((ROW(A1)-1)/10))
输入在A列后面，公式右拉，下拉

Answer 3

为什么不直接复制粘贴呢？宏命令倒也不难，也挺麻烦的
Sub 整理()
With Sheet1
For i = 4 To .Range("A1").End(xlToRight).Column - 2 Step 3
.Range(.Cells(1, i), .Cells(.Cells(1, i).End(xlDown).Row, i + 2)).Copy .Range("A1").End(xlDown).Offset(1)
Next
End With
End Sub

Answer 4

对写代码，文件呢，没文件不好写！