多行或列数据排成一行
2014-12-123条评论
打开Excel，按下alt+F11,调出开发工具页面，双击sheet1,将下列代码复制并粘贴
Sub conn()
Dim i As Integer, iTargetRow As Integer
iTargetRow = Selection.Row
For i = 1 To [a1].End(xlDown).Row
Cells(i, 1).Resize(1, Cells(i, 255).End(xlToLeft).Column).Copy
Cells(iTargetRow, Cells(iTargetRow, 255).End(xlToLeft).Column + 1).PasteSpecial
Next
Cells(iTargetRow, 1).Select
If Cells(iTargetRow, 1) = "" Then Cells(iTargetRow, 1).Delete Shift:=xlToLeft
End Sub
效果如图所示
2017年高职院校年生均财政拨款不低于1.2万元关于生师比的计算方法