0

所以我第一次遇到这个问题,再次运行查询为时已晚。

问题是 varchar 字段的字符返回实际上是在 excel 中做一个新行,所以我的复制/粘贴被搞砸了。

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

我的解决方案是创建一个小脚本,它将找到“不正确”的行并将内容移动到正确的位置

有更好的解决方案吗?

4

1 回答 1

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
于 2013-03-07T15:42:34.997 回答