发布网友 发布时间:2022-04-23 00:48
共2个回答
热心网友 时间:2023-05-10 05:39
'自定义公式-按ALT+F11-插入-模块-粘贴代码-将表格另存为启用宏的格式(xlsm)
Sub 可设置快捷键()
a = [a65536].End(xlUp).Row
For i = 1 To a
For j = 1 To 3
b = b & "|" & Cells(i, j)
Next
Next
arr = Split(Mid(b, 2), "|")
Cells(1, "e").Resize(1, UBound(arr) + 1) = arr
End Sub追问太高深了,我EXCEL小白表示不懂,不过也谢谢
热心网友 时间:2023-05-10 05:39
=INDEX($A:$C,INT(COLUMN(C1)/3),MOD(COLUMN(C1),3)+1)
追问公式不太明白能讲下吗,如果是再多列呢?需要改哪些追答INDEX函数为行列定位。
后面两个参数,一个定位行,一个定位列。