|
▼おにこ さん:
>「<>」を含む言葉がある場合、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
|
|