| |
▼kanabun さん：
わかりやすく、丁寧に説明していただきありがとうございます。
印刷して、じっくり読んで勉強しようと思います。
本当に感謝しています。ありがとうございました。
>▼おにこ さん：
>
>>「＜＞」を含む言葉がある場合、AH列に「＜＞」を含む言葉を移動させたいです。
>
>参考まで、別法です
>
>Sub Try3b()
> Dim r As Range, c As Range
> Dim ss As String, v, vv
> Dim aa() As String
> Dim k As Long
> Const z = "、"
>
> Set r = Range("AA1", Cells(Rows.Count, "AA").End(xlUp))
> For Each c In r
> ss = c.Value
> If ss Like "*＜*＞*" Then 'セル内に＜*＞があれば
> vv = Split(ss, z) '"、"でブロックに分割
> ReDim aa(1)
> For Each v In vv
> 'このブロックは＜*＞があるか
> k = IIf(v Like "*＜*＞*", 1, 0)
> If Len(aa(k)) > 0 Then
> aa(k) = aa(k) & z & v
> Else
> aa(k) = v
> End If
> Next
> c.Value = aa(0) '＜*＞の含まれないブロック
> c.Offset(, 7).Value = aa(1) '＜*＞の含まれるブロック
> End If
> Next
>End Sub
|
|
おにこ
- 12/9/3(月) 9:44 -
