Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


2435 / 13646 ツリー ←次へ | 前へ→

【68060】【マクロ】抽出の修正について Uライオン 11/1/28(金) 10:31 質問[未読]
【68061】Re:【マクロ】抽出の修正について UO3 11/1/28(金) 10:43 発言[未読]
【68064】Re:【マクロ】抽出の修正について Uライオン 11/1/28(金) 11:56 質問[未読]
【68065】Re:【マクロ】抽出の修正について かみちゃん 11/1/28(金) 12:03 発言[未読]

【68060】【マクロ】抽出の修正について
質問  Uライオン  - 11/1/28(金) 10:31 -

引用なし
パスワード
   マクロの修正について教えてください!

ある文書を作成するのに必要なマクロのシートがあります。
抽出元(sheet1)の表を一部修正したため、sheet2に正しく抽出されず、修正しています。

下記に詳細一部コピーしますが、これで抽出すると、同じデータが何度か繰り返し抽出され、重複してしまいます。

マクロの知識が全くなく、修正しているので、お力貸していただけると幸いです。


Application.ScreenUpdating = False
'●●書 作成
Sheets("テンプレート").Select
Sheets("テンプレート").Copy After:=Sheets(1)
ActiveSheet.Name = "●●書"

Sheets("まとめ").Select
OutPutRow = 19
OutPutSheetCount = 1
'D列で最終行を確認
LastRow = Cells(1, 4).End(xlDown).Row

For Row = 2 To LastRow
datacount = Cells(Row, 27).Value
For i = 1 To datacount
If Cells(Row, 28 + (i - 1) * 7).Value <> "" Then
'△データがあれば▲情報も出力
1. = Cells(Row, 11).Value '代理店
2. = Cells(Row, 26 + (i - 1) * 7).Value 'A
3. = Cells(Row, 5).Value 'B
4. = Cells(Row, 6).Value 'C
5. = Cells(Row, 25 + (i - 1) * 7).Value 'D
6. = Cells(Row, 18).Value 'E
7. = Cells(Row, 4).Value 'F
8. = Cells(Row, 10).Value 'G
9. = Cells(Row, 27 + (i - 1) * 7).Value 'H
10. = Cells(Row, 30 + (i - 1) * 7).Value 'I
11. = Cells(Row, 31 + (i - 1) * 7).Value 'J
End If
Sheets("●●書").Select
Cells(OutPutRow, 2).Value = 11.
Cells(OutPutRow + 1, 2).Value = 1.
Cells(OutPutRow, 3).Value = 2.
Cells(OutPutRow + 1, 3).Value = 3.
Cells(OutPutRow, 4).Value = 5.
Cells(OutPutRow + 1, 4).Value = 4.
Cells(OutPutRow + 1, 5).Value = 6.
Cells(OutPutRow, 6).Value = 7.
Cells(OutPutRow + 1, 6).Value = 8.
Cells(OutPutRow + 1, 7).Value = 9.
Cells(OutPutRow + 1, 8).Value = 10.
OutPutRow = OutPutRow + 2

【68061】Re:【マクロ】抽出の修正について
発言  UO3  - 11/1/28(金) 10:43 -

引用なし
パスワード
   ▼Uライオン さん:

おはようございます。
回答者は、テンプレートシートやまとめシートのレイアウトが見えないわけです。
かつ、そこで、どんな条件による転記をおこなうのかもわからないわけです。

提示されたコードを読んで、そのレイアウトを【想像し】かつ、やりたいことも
【想像しなさい】というのは、かなり【酷な】要求ですよ。
とくに、コードがうまく働かないということですから、コードを読んでも、何をすべきかが
わからない部分もでてきます。

レイアウトとそこでの処理要件を具体的にアップしていただけるとレスがつくと
思うのですが。

【68064】Re:【マクロ】抽出の修正について
質問  Uライオン  - 11/1/28(金) 11:56 -

引用なし
パスワード
   知識がなく、申し訳ありませんでした。
ご指摘いただいて勉強になります。ありがとうございます。
下記でわかりますでしょうか?

「まとめ」のデータを「●●書」に抽出します。

シート「まとめ」は、1行目項目名が並び、2行目以降に各項目のデータ(A、B、C・・・)が入力されています。
顧客データの抽出なので、2行目に顧客A様、3行目に顧客B様という感じです。

シート「●●書」はいわば伝票で、その伝票の形式に合わせて必要なAやBのデータを抽出しています。

正しいデータが抽出できてはいるのですが、顧客のデータが連続(3回や4回)で入力されることがあります。
顧客A、顧客A、顧客A、顧客B、顧客B、顧客C・・・というように。

これでわかりますでしょうか?
また必要でしたら、追記します。

【68065】Re:【マクロ】抽出の修正について
発言  かみちゃん E-MAIL  - 11/1/28(金) 12:03 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>これでわかりますでしょうか?
>また必要でしたら、追記します。

【Sheet1】
   A   B  C
1
2
3
4

【Sheet2】
   A   B  C
1
2
3
4

というようなシートイメージでサンプルデータを用いて、
マクロ実行前の状態と、期待している結果を示されてはいかがでしょうか?

シートイメージを書かれる場合は、投稿欄の右下の「等幅」にチェックをします。

2435 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free