お世話になります。
エクセルのマクロを利用し下記の
方法はできますでしょうか。
条件:1つのフォルダ内に2つのエクセルデータがあります。
(1)「リスト」名のエクセルデータ
(2)「送付状」
(1)「リスト」名のエクセルには下記の内容があります。
A B
1 山田 03-0000-0000
2 佐藤 04-0000-0000
3 樋口 05-0000-0000
4 加藤 06-0000-0000
「リスト」名のエクセルには事前にマクロを組みます。
(ここを教えてください!)
マクロを起動すると
(2)「送付状」のエクセルデータごとコピーし
ファイル名を「リスト」のB1とします。
例:ファイル名/03-0000-0000
03-0000-0000のファイルを開き
A3に「リスト」のA1をコピーし貼り付けます。
C10には「リスト」B1の電話番号をコピーし貼り付けます。
これでファイル名03-0000-0000を保存します。
次に同じ動作を繰り返しますが
新しく作成したエクセルファイル(貼り付け先)
のコピー元((1)リスト)はA1またはB1
から次行のA2またはB2と行を変えてコピーし
貼り付け場所は変わらずA3・C10とします。
(1)「リスト」A1欄が空欄になるまでこの動作を
つづけ、終わったら「完了」表示がされ作業終了にしたいです。
完成形
(1)「リスト」に100件の名前があった場合
フォルダ内には
(1)「リスト」、(2)送付状
その他100件の電話番号名のエクセルファイル
が存在する。
お手数をおかけいたいます。
宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
下記のマクロを実行するとシート3、シート4・・・にあなたのご希望の文書が作成できます。
ただし送付状についてはあなたの意向がつかめないので、なにもしていません。なおリストのデータ数はマクロの中で指定してください。
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2013/11/21 ユーザー名 :
'
Dim shtno As Integer, i As Integer, datasu As Integer
Worksheets("sheet1").Activate
datasu = 4 'リストのデータ数
For i = 1 To datasu
Worksheets.Add after:=Worksheets(2)
shtno = i + 2
Cells(3, 1) = Worksheets("sheet1").Cells(i, 1)
Cells(10, 3) = Worksheets("sheet1").Cells(i, 2)
Next
'
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA初心者です。電話番号の数字の前に0を表示させたいです。 2 2022/12/14 03:58
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロでエクセル内のアウトラ...
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
Excel2010でふりがなが漢字にな...
-
mfc42.dllファイルってなんです...
-
オペランドが足りませんとコメ...
-
【ExcelVBA】sheet作成時にマク...
-
フェイス・シートについて教え...
-
FLASHで外部swfファイルを検索...
-
VBAで横データを縦データに変換...
-
AUTOCAD 2010でdwlファイルの場...
-
InstallShieldWizardのエラー
-
エクセル マスターデータから別...
-
起動時エラーの対処方法
-
エクセル/マクロ Exit Subが実...
-
Pファイルを実部と虚部に分け...
-
pythonでrequestsが使えない
-
エクセル 「実行時エラー"13":...
-
Bootcampで無線lan接続が出来ない
-
マクロ実行ボタンがコピー出来ない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けをマクロで禁止させたい。
-
あみだくじの横線の本数の求め方
-
マクロでエクセル内のアウトラ...
-
VBAで写真参照→写真サイズ変...
-
VBA初心者
-
ゾンビエクセル・・・(Exc...
-
エクセル マクロ コピー 貼...
-
エクセルでテキストを任意のセ...
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
オペランドが足りませんとコメ...
-
【ExcelVBA】sheet作成時にマク...
-
エクセル/マクロ Exit Subが実...
-
mfc42.dllファイルってなんです...
-
VBA シートの切り替えができな...
-
エクセルの文字間スペースを入...
-
(int)キャストとintvalの違い
-
pythonでrequestsが使えない
-
エクセル 「実行時エラー"13":...
-
Excel2010でふりがなが漢字にな...
おすすめ情報