入力シートを領して分類名別にsheetを作りたいです。

すみません、教えてください。
入力シートを利用して分類別（C列）にシートを作成しました。
例えば
4/5の「1.事務用品」を別のシートにシート名を1.事務用品と作成して
このシートに転送したいです。
関数の作成方法を教えたください。
宜しくお願い致します。

No.2 ベストアンサー 回答者： ママチャリ 回答日時： 2016/06/17 00:20

関数でシートを作成することはできません（たぶん）。

よって、VBAになってしまいます。
こんな感じでしょうか？

Sub sample()
Dim wsI As Worksheet
Dim wsO As Worksheet
Dim i As Long
Set wsI = Sheets("入力シート")
For i = 3 To wsI.Cells(Rows.Count, "C").End(xlUp).Row
On Error Resume Next
Set wsO = Sheets(wsI.Cells(i, "C").Value)
If Err.Number <> 0 Then
On Error GoTo 0
Sheets("入力シート").Copy After:=Sheets(Sheets.Count)
Set wsO = ActiveSheet
wsO.Name = wsI.Cells(i, "C").Value
wsO.Range(Cells(3, "C"), Cells(Rows.Count, "C")). _
ColumnDifferences(wsO.Cells(i, "C")).EntireRow.Delete
wsO.Range("A1").Select
End If
On Error GoTo 0
Next
End Sub

この回答へのお礼

ママチャリさん。
すみません。
マクロの事はまったくわかりません。
せっかく式を教えてくださったのに
どこに、コピペをしたらいいのか
チンプン、カンプンです。
マクロを勉強しなければいけませんね。

お礼日時：2016/06/17 22:37

No.1 回答者： くんこば 回答日時： 2016/06/16 22:09

D関数で似たようなことは出来た気がしますが、ちょっと自信ないですね。

やはりVBAになってしまいますが、あなたのご希望によってはかなり難しくなる可能性があります。

accessだったら、まだ比較的簡単かも。

この回答へのお礼

ありがとうございました。
マクロやアクセスは全く分かりません。
すみません。

お礼日時：2016/06/18 06:35