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 に答える