|
こんにちは。
A列にタイトル「製品名」で文字列が入っていて、
B列にタイトル「日付」で文字列が入っていて、
C列にタイトル「通し番号」で文字列が入っていて、
D列にタイトル「客室タイプ」で文字列が入っていて、
E列にタイトル「質問内容」で文字列が入っていて、
F列にタイトル「sea」でなにも入っていず、
G列にタイトル「mount」でなにも入っていません。
いま、E列2行目をポイントして
文字列に海が含まれていたらF列2行目に"1"を
文字列に山が含まれていたらG列2行目に"1"を
つぎに、E列3行目をポイントして
文字列に海が含まれていたらF列3行目に"1"を
文字列に山が含まれていたらG列3行目に"1"を、、、、
入れていきたいです。
ここまで記述しましたが行き詰まりました。
どうすればよいかどなたか御教授いただけませんでしょうか。
↓↓
Sub Type1()
Dim r As Range
Dim v
Dim i As Long
Dim j As Long
Set r = Sheets(1).Cells(1).CurrentRegion
v = r.Value
With CreateObject("Forms.ComboBox.1")
.List = v
j = 5
For i = .ListCount - 1 To 2 Step -1
If .List(i, j) = "*海*" Then
j = j + 1
.List(i, j) = "1"
j = j - 1
If .List(i, j) = "*山*" Then
j = j + 2
.List(i, j) = "1"
j = j - 2
.RemoveItem i
End If
End If
Next
r.ClearContents
r.Resize(.ListCount, 13).Value = .List
End With
Beep
End Sub
|
|