2013-03-07 94 views
0

所以我刚刚得到了第一次该问题,并且再次运行查询为时已晚。sql server 2012网格结果复制/粘贴到excel 2010

问题是一个varchar字段的字符返回实际上是在Excel中做一个新行,所以我的复制/粘贴是拧大的时间。

我想我有一个解决方案,但我想知道是否有其他人有另一种解决方案

我的解决方案是创建一个小脚本,会发现“不正确”行,并在适当的地方

移动内容

有什么更好的解决办法?

回答

0

我如何固定我的问题(具体代码我的问题)

Sub test() 


Dim cell As Range 
Dim lastGoodRow As Range 
For Each cell In Range("a1:a1938") 

If IsNumeric(cell.Text) Then 
    Set lastGoodRow = Range("v" & cell.Row) 
End If 

If Not IsNumeric(cell.Text) Then 
    lastGoodRow.Value = lastGoodRow.Text & vbCrLf & cell.Text 
    If Range("b" & cell.Row).Text <> "" Then 
    Range("B" & cell.Row & ":J" & cell.Row).Select 
    Selection.Copy 
    Range("W" & lastGoodRow.Row).Select 
    ActiveSheet.Paste 
    End If 
End If 

Next cell 

End Sub