[已解决]如何把表格竖排

wyjgni

如何实现表格竖向转换

最佳答案

月排行榜 / 总排行榜

luchao124

2017-3-17 16:52

使用vba可以实现  
按alt+f11  然后 点击插入  模块       然后在模块中输入以下代码：
Sub 转换()
Dim i&, j&, k&, num&
num = Range("a65536").End(xlUp).Row
k = 2
For i = 2 To num
    For j = 1 To 5   
      If Cells(i, j + 1) <> "" Then
        Cells(k, "l").Value = Cells(i, 1)
        Cells(k, "m").Value = Cells(i, j + 1)
        k = k + 1        
      End If
    Next
Next
End Sub
这段代码能实现楼主所要的功能 。我只是一个vba的初学者在下献丑了 ，我知道还可以使用数组、字典能实现这个功能 ，  希望VBA高手不吝赐教

跳转到最佳答案楼层

luchao124

复制  选择性粘贴  转置

心正意诚身修

這是用別人的號吧。。

wyjgni

心正意诚身修 发表于 2017-3-17 13:25
這是用別人的號吧。。

这是我公司的商品货号

wyjgni

luchao124 发表于 2017-3-17 13:11
复制  选择性粘贴  转置

转置是单独一列啊，这还要商品代码保持一致，不那么容易

luchao124

wyjgni 发表于 2017-3-17 14:27
转置是单独一列啊，这还要商品代码保持一致，不那么容易

你应该上传附件  然后把要达到的要求描述出来

wyjgni

luchao124 发表于 2017-3-17 15:24
你应该上传附件  然后把要达到的要求描述出来

右边是手动结果啊

wyjgni

wyjgni 发表于 2017-3-17 15:33
右边是手动结果啊

漏传图了

luchao124

使用vba可以实现  
按alt+f11  然后 点击插入  模块       然后在模块中输入以下代码：
Sub 转换()
Dim i&, j&, k&, num&
num = Range("a65536").End(xlUp).Row
k = 2
For i = 2 To num
    For j = 1 To 5   
      If Cells(i, j + 1) <> "" Then
        Cells(k, "l").Value = Cells(i, 1)
        Cells(k, "m").Value = Cells(i, j + 1)
        k = k + 1        
      End If
    Next
Next
End Sub
这段代码能实现楼主所要的功能 。我只是一个vba的初学者在下献丑了 ，我知道还可以使用数组、字典能实现这个功能 ，  希望VBA高手不吝赐教

wyjgni

luchao124 发表于 2017-3-17 16:52
使用vba可以实现  
按alt+f11  然后 点击插入  模块       然后在模块中输入以下代码：
Sub 转换()

高手很有智慧，代码不难，也能基本看懂。非常感谢。