No.2
- 回答日時:
この質問の内容は、VBA向きです。
>マクロはよくわからないのと
エクセルで、操作で出来そうに無いことで、何かやりたいことを実現するには、VBAを勉強してください。勉強しないで、楽したいこと、難しいことをやりたいといっても、無理です。
>最初に開くときに面倒なので
何のことだかわかりません。
ーーーー
入力の都度でなく、一応入力が終わってからなら、
フィルターを行い、コピー貼り付けを繰り返す
フィルタオプションの設定を繰り返す
ソートして区分ごとにコピー貼り付けを繰り返す
部門ごとの連番を振って関数で処理する(下記。自称 imogasi方式)
ーーーーー
例データ
A列 B列 C列 D列
コード内容計数連番
人事x121
営業y21101
総務z31201
人事u412
人事v423
営業s43102
総務t12202
総務v12203
人事w124
ーー
どの列でもよいが(各部100人以内と仮定する)
H列 I列
人事0
営業100
総務200
ーーーーーーー
D列の式は
=VLOOKUP(A2,$H$1:$I$3,2,FALSE)*1+COUNTIF($A$2:A2,A2)
下方向に式を複写。
各部別に、出現別に、連番を振っている。
ーー
Sheet2で
A2に
=INDEX(Sheet1!$A$1:$C$100,MATCH(ROW()-1,Sheet1!$D$1:$D$100,0),COLUMN())
C2まで式を複写。
A2:C2を下方向に式を複写
結果
人事x12
人事u41
人事v42
人事w12
#N/A#N/A#N/A
ーー
Sheet3のA2で
=INDEX(Sheet1!$A$1:$C$100,MATCH(ROW()-1+100,Sheet1!$D$1:$D$100,0),COLUMN())
MATCH(ROW()-1+100とここで100足していることに注意。
以下人事の場合と同じ。
総務の場合は200を足す。
結果
営業y21
営業s43
#N/A#N/A#N/A
#N/Aを出さない方法の点は省略。imogasi方式でGoogle照会すれば、何処かに書いている。
ありがとうございます
参考にさせていただきます
VBAを一応勉強し、ボタンを作ったり、若干編集もできるようにはなりましたが、能力不足やあまり使わないこともあって、なかなか使いこなせません。
それとそのブックを開くときにマクロを有効にするかどうか毎回聞かれるのがうっとうしいのです。作ったマクロが気に入ってすべてのブックに適応させたりすると、必要でないブックであっても開くときにいちいち聞いてきていらいらします。聞かれないよう設定できるのかもしれませんが、今のところその方法は不明です。
とにかく私の希望はマクロを使わないで済ませたいのです
imogasiさんのVBAを使わないで済ませる方法を参考にしながら、なんとか作っていきたいと思います。
ありがとうございました
No.1ベストアンサー
- 回答日時:
質問者さんの意図とは少し違いますが、次のような簡単な方法があります。
適当な回答がなければ、ご検討ください。(1)2枚目以降のシートで =sheet1!A1 などとして、1枚目のシートの該当するセル範囲(これから入力される可能性のある部分を含む)のデータをすべて取り込む
(2)オートフィルタで望みの行だけ表示する
(3)1枚目のデータが増えたり変更されたりしたら、フィルタの「再適用」(2007ではボタンあり)をして最新の結果を得る
(2007とその97-2003互換モードで確認しました。)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Excel(エクセル) エクセルで最下行にデータを追加するVBA 6 2023/05/09 09:30
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Excel(エクセル) EXCEL 関数を教えてください。(A列の同じ値が複数ある場合vlookupで出来ますか) 4 2022/12/07 20:54
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) Excelで、別シートの表のステータスに伴った動的な自動転記をしたいです。 2 2023/06/14 15:56
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
はがきについて。
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
【関数】先頭だけにある、半角...
-
Excel ピボットテーブルで日付...
-
Excelのpivotについて質問です
-
時間によってファイル名が変わ...
-
エクセル 白黒印刷で白線を印刷...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
WPS OFFICEでの縦書きについて
-
Excelのチェックボックスの使い...
-
エクセルの条件付き書式につい...
-
エクセルのセルに同じ大きさの...
-
エクセルの関数について教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報