A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
例)の内容でしか作れませんが、ちょっと作ってみました。
前提)
1.Sheet3に#2で書かれた例)を用意して下さい。
1行目には支社名(A1)、住所(B1)と見出しを入れて(別に支社名、住所でなくても良いですが、見出し行を用意して下さい)A列に支社名、B列に住所を入れて下さい。
2.Sheet4を作成し、A1にA支社、B1にB支社と入れて下さい。
[マクロの作成]
[ツール]-[マクロ]-[Visual Basic Editor]を開き、VB側のメニューから[挿入]-[標準モジュール]を開きます。そうすると、Module1(コード)と書かれた白紙のウィンドウが開きます。
そこに以下のコードをコピー&ペーストして下さい。
Sub Furiwake()
Dim low1 As Integer
Dim low2 As Integer
low1 = 2
low2 = 2
Do Until Worksheets("Sheet3").Cells(low1, 1) = ""
If Worksheets("Sheet3").Cells(low1, 1) = "A支社" Then
If Worksheets("Sheet4").Cells(low2, 2) <> "" Then
low2 = low2 + 1
Else
If Worksheets("Sheet4").Cells(low2, 1) <> "" Then
low2 = low2 + 1
End If
End If
Worksheets("Sheet4").Select
Worksheets("Sheet4").Cells(low2, 1) = Worksheets("Sheet3").Cells(low1, 2)
Else
If Worksheets("Sheet4").Cells(low2, 1) <> Worksheets("sheet3").Cells(low1, 2) Then
low2 = low2 + 1
End If
Worksheets("Sheet4").Cells(low2, 2) = Worksheets("Sheet3").Cells(low1, 2)
End If
low1 = low1 + 1
Loop
End Sub
ペーストが完了したら、F5を押して見て下さい。
急いで作ったのでバグはあるかも知れません。
ただ、本物のマクロを作る為には実際のレイアウトを見なければ出来ませんので、ここでの回答はこれ以上は不可能です。
後はVBAの書籍等を購入して勉強して下さい。
覚えると結構楽しいですよ。
No.3
- 回答日時:
>sheet4に
>A支社 セルA~H
>B支社 セルO~AA
>sheet3で照合結果が出た、*付の重複しているものを
>sheet4でA支社・B支社ごとにわけたい。
つまり、
A支社 |B支社
------------+------------
東京都中央区新川町一丁目|東京都中央区新川町一丁目
------------+------------
東京都中央区新川町二丁目|東京都中央区新川町二丁目
------------+------------
東京都足立区保木間五丁目|東京都足立区保木間五丁目
------------+------------
東京都足立区保木間五丁目|
------------+------------
こうしたいという事ですね。
すいません。いろいろ考えて見ましたが、マクロじゃないと出来ないと思います。
どなたか良い案をお持ちの方、お知恵を貸して下さい。お願いします。
No.2
- 回答日時:
sheet3の照合結果とはどういったものをお考えですか?
質問の内容から勝手に解釈して、「sheet1とsheet2の内容を重複しないようにsheet3にまとめたい」と言う事でしたら、
1.sheet1とsheet2の列の並びを統一する。
2.sheet1の行をsheet3にコピー&ペーストする。
3.sheet2の行をsheet3に(2で貼り付けた行の下に)コピー&ペーストする。
4.sheet3をチェックしたい内容で並べ替える。
5.チェックしたい項目を全て結合する。
Rika92さんの例で言うと
=CONCATENATE(A1,B1,C1) と関数をD列に入れます。
そうするとD1には東京都○○区○○町とA,B,C列か結合されます。(CONCATENATE関数でなくても良いです)
6.5.で入れた関数を全行にコピー&ペーストする。
7.E列に=IF(D1=D2,"*","")と関数を入れる。
8.7.で入れた関数を全行にコピー&ペーストする。
これで、下の行と同じ内容の行のE列に"*"が表示されます。
9.E列にオートフィルターを設定して、"*"列のみ選択して、表示された行を削除すれば、重複は無くなります。
以上
検討違いだったらごめんなさい。
この回答への補足
ここまでは完璧でした。ありがとうございます。
sheet1 A支社
sheet2 B支社
sheet3 A支社とB支社の照合結果
sheet4 A支社とB支社の比較
例)sheet3
A支社 東京都中央区新川町一丁目 *
B支社 東京都中央区新川町一丁目
A支社 東京都中央区新川町二丁目 *
B支社 東京都中央区新川町二丁目
A支社 東京都足立区保木間五丁目 *
A支社 東京都足立区保木間五丁目 *
B支社 東京都足立区保木間五丁目
sheet4に
A支社 セルA~H
B支社 セルO~AA
sheet3で照合結果が出た、*付の重複しているものを
sheet4でA支社・B支社ごとにわけたい。
どんな関数をつかえばいいでしょうか・・・
ど素人なのであまり難しい関数はわかりません
よろしくお願いします。
No.1
- 回答日時:
Sheet3のA1セルに
=IF(Sheet1!A1=Sheet2!A1,"等しい","等しくない")
のようにSheet名から記述すれば比較できますよ。
また、Sheet3のA1セルをコピーしてSheet3上の別のセルにペーストすることで他のセルに対しても同じ計算ができます。
とんちんかんな回答でしたら、申し訳ありません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) SUMIFSと日付変換 10 2023/04/16 15:38
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Excel(エクセル) 【Excel質問】別シートにある複数の同型の表から、同じ行項目にある数字を集計する 4 2023/02/16 00:14
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- Visual Basic(VBA) VBA 別sheetからの転記なのですが 2 2023/05/22 15:55
- Excel(エクセル) エクセルの複数ブックのシートを1つまとめたい 都道府県ごとに47ブックがあり、そのシートのデータを1 5 2022/11/15 14:57
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Excel(エクセル) エクセルの日付抽出 2 2023/02/03 15:02
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
一行おきにコピーするマクロが...
-
EXCELにて複数列を同条件(色)...
-
エクセル マクロ 貼り付け先が...
-
エクセルで空白以外のセルの値...
-
エクセル マクロ 条件付コピー
-
エクセルの関数について(日付で...
-
[Excel VBA]空白セル以外に連番...
-
エクセル VBA 指定の範囲内をコ...
-
マクロで値がある列までコピー
-
エクセルでマクロを使った特定...
-
エクセルで表示された値だけ行...
-
エクセルで行挿入した際、自動...
-
シート保護の状態で行の追加を...
-
Excelの非表示列も含めてコピー
-
エクセルで縦に長い表を印刷
-
特定の桁数を抽出
-
日報に自動で矢印線をひきたい
-
Excel VBAで日にちを入力して線...
-
A1セルに入力したら、入力時間...
-
EXCELで○ヶ月を○年○ヶ月に変換...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
エクセル マクロ 貼り付け先が...
-
シート保護の状態で行の追加を...
-
Excelの非表示列も含めてコピー
-
エクセル VBA 指定の範囲内をコ...
-
エクセルで表示された値だけ行...
-
エクセルで行挿入した際、自動...
-
エクセルの関数について(日付で...
-
[Excel VBA]空白セル以外に連番...
-
エクセルのマクロ、AVERAGEIFを...
-
エクセルで反転コピー
-
マクロで値がある列までコピー
-
VBAで同じブック内の別シー...
-
【Excel-マクロ】グループとア...
-
エクセルVBA 複数列をコピーす...
-
エクセルで縦に長い表を印刷
-
エクセルで空白以外のセルの値...
-
エクセルでマクロを使った特定...
-
マクロでの可視セルのコピー&...
おすすめ情報