急求!!!如何将excel中的第一行的指标数据整合到列上,以减少表格列数,增加行数??如图

zhuimenghk1 |浏览1493次
2017/08/15 15:03


如何将1转变为2?这个问题已经困扰我半个月了,试了很多方法,有哪位大神能指点一二,跪谢!!


收藏关注

满意回答

2017/08/15 20:56

你的目标可用VBA来实现。下面以图1中指标1的B2:D9的数据为例,执行以下VBA:


Sub zhibiao1()

Dim sh As Range

Dim i, j As Integer

i = 1

j = Sheet1.Range("a65536").End(xlUp).Row

Sheet1.Range("a1:a" & j).ClearContents

For Each sh In Range("b2:D9")

If sh.Value <> "" Then

Cells(i, 1) = sh.Value

i = i + 1

End If

Next

End Sub


这样指标1的数据就按要求排为一列了。再分别对其余几个指标的数据运行一次上述VBA即可。

lwzxy

其他回答(0)    我来补答
0人关注该问题
+1
 加载中...