VBAについての質問です。

Writer: admin Type: foresth Date: 2019-01-06 00:00
VBAについての質問です。----xxx----aaa----bbb----ccc----yyy----の様に別々の行に入ってる文字を----xxx----aaabbbccc----yyy----のようにabc(例では3行ですが1行だけの時もあります)を1行に改行して表示した後に表示する前のを行ごと消したいです。これを(XXX)がある次の行から動くようにして(YYY)が出てきたら終わるようにVBAのFor文等で書くにはどうすればいいのか教えていただきたいです。他のやり方でいいのがあればそちらでも大丈夫ですので教えていただきたいです。この質問は、活躍中のチエリアン・専門家に回答をリクエストしました。###あまり上品ではないですが、簡単なサンプルを書いてみました。以下のプログラムでは A1:A50 の範囲について処理します。Sub Sample() Dim F As Boolean, S As String, RM As Range, R As Range F = False For Each R In Range("A1:A50") If F Then If R = "yyy" Then F = False Set RM = Nothing Else If RM Is Nothing Then S = R Set RM = R Else S = S & vbLf & R R = "" Range(RM, R).Merge Set RM = Range(RM, R) RM = S End If End If Else If R = "xxx" Then F = True End If End If NextEnd Subナイス0
###この質問は投票によってベストアンサーに選ばれました!###行番号が ないので さっぱりわかりません。---- は どういういみですか 空白セル?xxx----aaa は このままでaaa----bbb----ccc----はaaabbbccc---- となる 規則性は なんですか?ナイス0

 

TAG