服装尺码横排变成竖排问题请教

ljb_2008

我现在有个表格，导出来的时候是尺码横排的那种，如图所示，我现在要将其变成这个形式的（尺码竖排）

尺码横排

变成：

尺码竖排

这样有哪位朋友知道怎么操作吗？目前我可以将一行尺码的进行转换，现在多多行的尺码就不知道怎么转换了！

刀羊

你上传个文件啊，这么个图片怎么给你比划呢？

ljb_2008

刀羊 发表于 2016-8-11 19:29
你上传个文件啊，这么个图片怎么给你比划呢？

尺码横排.zip (11.49 KB, 下载次数: 47)

2016-8-12 11:57 上传

点击文件名下载附件
尺码横排

不好意思，忘记 上传了！

doitbest

Public Sub abc()
Dim ar(1 To 60000, 1 To 7), sht As Worksheet, x As Range, i, n
Set sht = Sheet1
For Each x In sht.Range("f16:s" & sht.[d60000].End(3).Row).SpecialCells(2)
    n = n + 1
    For i = 1 To 5: ar(n, i) = sht.Cells(x.Row, i): Next
    ar(n, 6) = sht.Cells(sht.[e:e].Find(sht.Cells(x.Row, 5), , , 1).Row, x.Column)
    ar(n, 7) = x
Next
Sheet2.[a2].Resize(n, 7) = ar
End Sub

ljb_2008

doitbest 发表于 2016-8-12 17:14
Public Sub abc()
Dim ar(1 To 60000, 1 To 7), sht As Worksheet, x As Range, i, n
Set sht = Sheet1

谢谢，这个问题解决了！

syzmoon

doitbest 发表于 2016-8-12 17:14
Public Sub abc()
Dim ar(1 To 60000, 1 To 7), sht As Worksheet, x As Range, i, n
Set sht = Sheet1

厉害！感谢感谢