A 回答 (4件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
マクロで挿入するのですか?
項目内容が変化する場合は、マクロなしでも算式で、SEMEDSがSheet2のB1にあるとして、B2セルに
=IF(ISERROR(HLOOKUP(B1,Sheet1!$E$1:$F$2,2,FALSE)),"",HLOOKUP(B1,Sheet1!$E$1:$F$2,2,FALSE))
をセットすれば出ますが・・・(1枚目の表はSheet1にあるとしています。)
$E$1:$F$2は実際の範囲に変えて下さい。右左にコピーできます。Sheet1の範囲を照合して値を表示しています。挿入ではなく、あらかじめ式を登録しておきます、こういう意味?
マクロで行なうには、2枚目の表の項目名と1枚目の項目名を比較して、一致したら値を書きこむことになります。
質問があいまいでコードは書きづらいですね。
この回答への補足
マクロで挿入したいと思います。下記のモジュールを修正すれば出来ると思いますが
よろしくお願いします。
Public Sub Syukei()
Dim wsDat As Worksheet '1枚目の表あるシート
Dim wsIns As Worksheet '2枚目の表あるシート
Set wsDat = Worksheets("Sheet1")
Set wsIns = Worksheets("Sheet2")
Dim col1 As Integer, col2 As Integer '列カウンタ
With wsIns 'コードを調べる
For col2 = 1 To .Range("A1").End(xlToRight).Column
For col1 = wsDat.Range("E1").Column To wsDat.Range("F1").Column
If .Cells(1, col2) = wsDat.Cells(1, col1) Then
.Cells(2, col2) = wsDat.Cells(2, col1)
End If
Next
Next
End With
End Sub
No.3
- 回答日時:
想像して書いてみました。
Sheet1のデータをSheet2に挿入します。
Sheet2のUHRSEMがA1セルにあるとします。
標準モジュールに貼り付けます。ご参考に。
Public Sub Syukei()
Dim wsDat As Worksheet '1枚目の表あるシート
Dim wsIns As Worksheet '2枚目の表あるシート
Set wsDat = Worksheets("Sheet1")
Set wsIns = Worksheets("Sheet2")
Dim col1 As Integer, col2 As Integer '列カウンタ
With wsIns 'コードを調べる
For col2 = 1 To .Range("A1").End(xlToRight).Column
For col1 = wsDat.Range("E1").Column To wsDat.Range("F1").Column
If .Cells(1, col2) = wsDat.Cells(1, col1) Then
.Cells(2, col2) = wsDat.Cells(2, col1)
End If
Next
Next
End With
End Sub
この回答への補足
回答ありがとうございました。また質問ですが
Sheet1の2行目のデータは、Sheet2に挿入できたのですが、例えば3行目から50行目に入っているデータ
はどうやって挿入できるのですか。教えてください。
お忙しい所申し訳ありません。
No.4
- 回答日時:
やはり下にまだあったんですね。
想像しきれませんでした。4行、追加、変更します。
Public Sub Syukei()
Dim wsDat As Worksheet
Dim wsIns As Worksheet
Set wsDat = Worksheets("Sheet1")
Set wsIns = Worksheets("Sheet2")
Dim col1 As Integer, col2 As Integer
Dim rw As Long '*** 追加 ***
With wsIns
For col2 = 1 To .Range("A1").End(xlToRight).Column
For col1 = wsDat.Range("E1").Column To wsDat.Range("F1").Column
If .Cells(1, col2) = wsDat.Cells(1, col1) Then
For rw = 2 To wsDat.Cells(65536, col1).End(xlUp).Row '*** 追加 ***
.Cells(rw, col2) = wsDat.Cells(rw, col1) '*** 変更 ***
Next '*** 追加 ***
End If
Next
Next
End With
End Sub
出来ました。わかりやすい回答本当にありがとうございました。
今後は質問をわかりやすくしたいとおもいますので、
またわからない所がありましたらよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】リボン、行列、数式・ステータスバを非表示に 4 2022/12/12 07:32
- その他(Microsoft Office) Excel 2列の値を返す数式についてです 1 2022/11/23 22:59
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- C言語・C++・C# C言語初心者 ポインタについて、お助けください、、 2 2023/03/15 23:50
- Visual Basic(VBA) 【マクロ】表への繰り返し転記について 1 2022/11/19 16:30
- Java javaでのプログラム(配列)について質問です. 2 2022/10/14 22:27
- Excel(エクセル) Excel教えてください。 下記のことが出来るのは、マクロですか?条件付き書式でしょうか、、?知恵を 5 2022/11/12 09:33
- Visual Basic(VBA) 重複データをまとめて合計を合算する 4 2022/10/25 20:25
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
【関数】先頭だけにある、半角...
-
エクセル 白黒印刷で白線を印刷...
-
Excelのチェックボックスの使い...
-
【関数】適切な文字数の数字を...
-
Excelのpivotについて質問です
-
Excel ピボットテーブルで日付...
-
LOOKUP関数を使えばいいのでし...
-
エクセル関数を教えてください
-
エクセルのセルに同じ大きさの...
-
UNIQUE関数が使えないバージョ...
-
excelの不要な行の削除ができな...
-
エクセルで「-0.0」と表示さ...
-
時間によってファイル名が変わ...
-
WPS OFFICEでの縦書きについて
-
エクセルの関数について教えて...
-
Aというブックの1というシート...
-
【マクロ】シート名を取得する...
-
VBA Private Sub Worksheet_Cha...
-
VBA、Excelのworkbook.open に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報