如何将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即可。