[已解决]请教各位，将sheet1的数据行列倒过来放入sheet2

13915499429

注意sheet1的行数是不一定的

最佳答案

月排行榜 / 总排行榜

易安1

2014-11-13 19:46

1. Sub test()
   
2.     Dim brr(1 To 100000, 1 To 2), arr, ar
   
3.     Dim i As Integer, n As Integer
   
4.     ar = Array("仓库号", "物料号", "MAX", "MIN")
   
5.     With Sheet1
   
6.         arr = .Range("a3:d" & .Cells(Rows.Count, 1).End(3).Row)
   
7.         For i = 1 To UBound(arr)
   
8.             m = i - 1
   
9.             For k = 1 To UBound(arr, 2)
   
10.                 brr(5 * m + k, 1) = ar(k - 1)
    
11.                 brr(5 * m + 5, 1) = ""
    
12.                 brr(5 * m + k, 2) = arr(i, k)
    
13.                 brr(5 * m + 5, 2) = ""
    
14.             Next
    
15.         Next
    
16.     End With
    
17.     With Sheet2
    
18.         .[a1].Resize(5 * m, 2) = brr
    
19.         .Columns("a:b").ColumnWidth = 27
    
20.         .Columns("a:b").HorizontalAlignment = xlCenter
    
21.         .Range("A1:A" & (5 * m)).SpecialCells(xlCellTypeBlanks).RowHeight = 8
    
22.         For n = 1 To 5 * m Step 5
    
23.             With .Range(.Cells(n, 1), .Cells(n + 3, 2))
    
24.                 .Borders.LineStyle = xlContinuous
    
25.                 .RowHeight = 19
    
26.             End With
    
27.         Next
    
28.     End With
    
29. End Sub
    

复制代码

跳转到最佳答案楼层

WreckRalf

代码是为工作目标服务的，你必须说明意图才行。
从你的代码效果来看，可以精简为以下一行代码：

1. if Sheets(1).[A65536].End(xlUp).Row>=3 then sheets(2).cells(1,4)=sheets(1).cells(3,1)

复制代码

相信这绝对不是你要的效果。

易安1

1. Sub test()
   
2.     Dim i As Integer
   
3.     With Sheet1
   
4.         i = .Cells(.Rows.Count, 1).End(3).Row
   
5.         .Range("A2:D" & i).Copy
   
6.         With Sheet2
   
7.             .[a1].PasteSpecial Transpose:=True
   
8.             .[a3:a4] = Array("Max", "Min")
   
9.         End With
   
10.     End With
    
11. End Sub
    

复制代码

baksy

附件

13915499429

baksy 发表于 2014-11-13 06:53
附件

谢谢，可是我没看到代码

13915499429

易安1 发表于 2014-11-13 00:00

还不是我想要的效果 我想要的效果

仓库号	02
物料	013205
Max	200
Max	100
仓库号	03
物料	013205
Max	200
Max	100
仓库号	04
物料	013205
Max	200
Max	100

易安1

1. Sub test()
   
2.     Dim brr(1 To 100000, 1 To 2), arr, ar
   
3.     Dim i As Integer, n As Integer
   
4.     ar = Array("仓库号", "物料号", "MAX", "MIN")
   
5.     With Sheet1
   
6.         arr = .Range("a3:d" & .Cells(Rows.Count, 1).End(3).Row)
   
7.         For i = 1 To UBound(arr)
   
8.             m = i - 1
   
9.             For k = 1 To UBound(arr, 2)
   
10.                 brr(5 * m + k, 1) = ar(k - 1)
    
11.                 brr(5 * m + 5, 1) = ""
    
12.                 brr(5 * m + k, 2) = arr(i, k)
    
13.                 brr(5 * m + 5, 2) = ""
    
14.             Next
    
15.         Next
    
16.     End With
    
17.     With Sheet2
    
18.         .[a1].Resize(5 * m, 2) = brr
    
19.         .Columns("a:b").ColumnWidth = 27
    
20.         .Columns("a:b").HorizontalAlignment = xlCenter
    
21.         .Range("A1:A" & (5 * m)).SpecialCells(xlCellTypeBlanks).RowHeight = 8
    
22.         For n = 1 To 5 * m Step 5
    
23.             With .Range(.Cells(n, 1), .Cells(n + 3, 2))
    
24.                 .Borders.LineStyle = xlContinuous
    
25.                 .RowHeight = 19
    
26.             End With
    
27.         Next
    
28.     End With
    
29. End Sub
    

复制代码