所以我第一次遇到这个问题,再次运行查询为时已晚。
问题是 varchar 字段的字符返回实际上是在 excel 中做一个新行,所以我的复制/粘贴被搞砸了。
我想我有解决方案,但我想知道其他人是否有其他解决方案
我的解决方案是创建一个小脚本,它将找到“不正确”的行并将内容移动到正确的位置
有更好的解决方案吗?
所以我第一次遇到这个问题,再次运行查询为时已晚。
问题是 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