| |
▼momo さん：
>ところで、Excelの改行コード（CHR(10)）と、
>Wordの改行コードは、違うのでしょうか？
自分もWordはよくわかりません。
Wordでもマクロの記録はできますので試してみては？
改行の考え方自体が違いそうな気がします。
>「別Sheetに改行コードと文字数で区切って入れていく方法」というのが、
>まったく想像が沸かないので、お恥ずかしいのですが、
>具体的には、どんな感じなのでしょう？
新しいBookを作成し、Make_Test → Testと実行してみてください。
Testのほうは、もう少し簡単に書けそうなのですが・・
Option Explicit
Sub Make_Test()
Dim Str As String
Dim i As Integer
Str = "123456789"
With Worksheets(1).Range("A1")
For i = 1 To 10
.Value = .Value & Str
.Value = .Value & "あああ" & Chr(10)
Next i
End With
End Sub
Sub Test()
Dim Str As String
Dim i As Long
Dim Po1, Po2 As Integer '文字切り出し用
Const SptLen As Integer = 9 '文字列数
Str = Worksheets(1).Range("A1").Value
With Worksheets(2).Range("A1")
Po1 = 1
Do While Len(Str) >= Po1
Po2 = InStr(1, Mid(Str, Po1, SptLen), Chr(10), vbTextCompare)
'SptLenの文字数までに改行がない場合
If Po2 = 0 Then
.Offset(i).Value = Mid$(Str, Po1, SptLen)
i = i + 1
Po1 = Po1 + SptLen
'SptLenまでに改行がある場合
Else
.Offset(i).Value = Mid$(Str, Po1, Po2)
i = i + 1
Po1 = Po1 + Po2
End If
Loop
End With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
