| |
去年、数行に書かれた文章を連結して、１行にする方法をハチさんに教えて頂きました。
【42239】 途中ＨＮを変更しました（他に同じＨＮがいたため）
それに、ちょっと手を加えて下記コードで作業していた（問題なし）のですが
今回、Ｄｏ〜Loopで一括処理しようとしたら、繰り返す毎に全部の文章が繋がってしまいました。
（デバッグ処理での画面確認では、範囲設定に問題はないように思えます）
解決方法をご教授願います。
【やろうとしていること】 下記、処理前の文書を処理後に書き換える
Do〜Loopを設定する前は（下記コードの☆がない場合）問題ありませんでした。
[処理前]
Ａ Ｂ
１ 1.マレー半島は
２ イギリスの植民地であった。
３
４ 2.第二次大戦中は
５ 日本の軍政下に置かれた。
６
７ 3.戦後はイギリス連邦内の
８ 自治領として独立した
[処理後]
Ａ Ｂ
１ 1.マレー半島はイギリスの植民地であった。
２
３ 2.第二次大戦中は日本の軍政下に置かれた。
４
５ 3.戦後はイギリス連邦内の自治領として独立した。
Sub 短文連結()
Dim r As Range, Str As String
Dim i As Integer, i2 As Integer
Do '☆ 後から設定
ActiveCell.CurrentRegion.Select
i = Selection.Row
i2 = Selection.Rows.Count
If i2 = 1 Then GoTo line:
For Each r In Selection.Cells
Str = Str & r.Value
Next r
ActiveCell.Value = Str
Rows("" & CStr(i + i2 - 1) & ":" & CStr(i + 1) & "").EntireRow.Delete
line:
Cells(i + 1, 2).End(xlDown).Select
Loop Until ActiveCell.Row = 65536 '☆ 後から設定
End Sub
【Do〜Loop後の結果】
１ 1.マレー半島はイギリスの植民地であった。
２
３ 1.マレー半島は・・・・・2.第二次大戦中は日本の軍政下に置かれた。
４
５ 1.マレー半島は・・・2.第二次世界中は・・・・3.戦後は・・・・
【デバッグでの確認】
Do〜Loopでの範囲設定を確認しました。
ActiveCell.CurrentRegion.Select の所で
１回目は１〜２行目
２回目は４〜５行目
３回目は７〜８行目の文章（Ｂ列）が範囲指定されていました。
それにも係らず、Value表示は上記の通り、それ以前の文章が全て繋がってしまいます。
宜しくお願いします。
|
|
岳
- 07/12/5(水) 19:48 -
