| |
初心者です。
よろしくお願いします。
Likeを使って部分一致の文字列を抽出したいのですが、
何も出ません。
エラーすら出ません。
教えてください。
Dim i As Variant
Dim j As Variant
Dim Row As Long
Dim NO As String
Dim Namae As String
Dim Suryo As String
Dim Tanka As String
With Worksheets(2)
For i = 3 To 10 Step 1
Worksheets(2).Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = i - 1
Next i
Worksheets(10).Name = "合計"
Row = Worksheets("CSV").Range("A1").SpecialCells(xlLastCell).Row
NO = Worksheets("CSV").Cells(Row, 1).Value '1番号
Namae = Worksheets("CSV").Cells(Row, 2).Value '2品名
Suryo = Worksheets("CSV").Cells(Row, 3).Value '3数量
Tanka = Worksheets("CSV").Cells(Row, 5).Value '5単価
For j = 2 To 10 Step 1
If NO = j - 1 And Namae Like "野菜類 *" Then
Worksheets(j).Cells(15, 4).Value = Namae
Worksheets(j).Cells(15, 5).Value = Suryo
Worksheets(j).Cells(15, 7).Value = Tanka
ElseIf NO = j - 1 And Namae = "水" Then
Worksheets(j).Cells(16, 5).Value = Suryo
Worksheets(j).Cells(16, 7).Value = Tanka
ElseIf NO = j - 1 And Namae = "米" Then
Worksheets(j).Cells(17, 5).Value = Suryo
Worksheets(j).Cells(17, 7).Value = Tanka
End If
Next i
End With
＜CSV＞
A列 B列 C列 D列 E列 F列
1. 野菜類 きゅうり 1 本 50 50
2. 水 1 本 200 200
3. 米 1 袋 4000 4000
4. 肉類 牛こま切れ 300 g 300 900
＜excel＞
A列 B列 C列 D列 E列 F列
1. 野菜類 きゅうり 1 （本） 50 50 ←シート1
2. 水 1 （本） 200 200 ←シート2
3. 米 1 （袋）4000 4000 ←シート3
・CSVを同じブックの別シートに読み込み、「CSV」と言うシート名になっています。
・各品目別にシートを作りたいため、今回は10シートを作成。
・10シート目には「合計」と言うシート名にする。
・excelのD列（単位）には、既に入力されている。
・excelのF列には、数式が入力されている（C列×F列）
・excelに入力するセルは、15行目以降。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
