怎么用vba将左边每个横向的数据变成纵向的,每天都有几千条数据,用公式...

发布网友发布时间：2024-04-05 01:36

我来回答

共4个回答

热心网友时间：2024-07-24 23:53

1. 公式发相对比较简单，公式如下：=OFFSET($A$1,INT((ROW()-1)/5),MOD(ROW()-2+5,5))

VBA :

X=1

FOR EACH RG IN RANGE("A1:D10")

X=X+1

CELLS(X,"H")=RG

热心网友时间：2024-07-24 23:51

使用PQ逆透视一下就好。

热心网友时间：2024-07-24 23:53

Sub 12()
Dim i, j As Long
i = Range("A1").CurrentRegion.Count
j = 1
For j = 1 To i
Range("n" & j) = Range("A1").CurrentRegion.Cells(j).Value
Next
End Sub

热心网友时间：2024-07-24 23:52

Excel数据如何快速排列

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com