その問題を初めて取得したばかりで、クエリを再度実行するには遅すぎます。
問題は、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