所以我才第一次得到这个问题,现在再运行查询已经太晚了。
问题是varchar字段的字符返回实际上是在excel中做一个新的行,所以我的复制/粘贴是大时间。
我想我有一个解决方案,但我想知道其他人是否有另一个解决方案
我的解决方案是创建一个小脚本,将找到"不正确的"行,并将内容移动到适当的位置
有更好的解决方案吗?
我如何修复我的问题(特定于我的问题的代码)
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