| |
▼おにこ さん：
>「＜＞」を含む言葉がある場合、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
|
|
kanabun
- 12/9/2(日) 21:04 -
