settingsログイン
メニュー

【回答済み】 For文のネストによるデータの抽出と書き出し。

閲覧 187
セルを検索して、値をシート順番に書き出したい。

Dim i, j As Byte
For i = 1 To Sheets(4).Range(”a1”).End(xlDown).Row
If Sheets(4).Cells(i, 1).Value = Sheets(3).Range(”F1”).Value Then
  j = j + 1
  Sheets(3).Cells(j, 16).Value = Sheets(4).Cells(i, 1).Offset(0, 1).Value
End If
Next

これを連続でF1~F500まで処理したいです。
書き出しも+1~500です。
匿名 2016 8/21 質問 Excel(エクセル)

回答 1

役立ち 0
For文をネストしてやればF1~F500までのデータをすべて書き出すことが
できます。下のアドレスで示した例を参考にしてください。
 2つほど気になったことがあります。
 1行目 Byte型ですが,これだと255までしか対応できません。Integer
型かLong型を使う方が普通です。
 5行目 Sheets(3).Cells(j, 16).Value ですが”F1”の値に対応する
データが縦に並んでしまいます。多分 Cells(16,j)の間違いではない
かと思います。

ツボウチ塾 パソコンスクール 岐阜県 各務原市 初心者向けパソコン教室

全ての回答 ホームページへ
2016 8/21 回答

Office(オフィス)、Excel(エクセル) の企業/事業者/教室/プロの方のホームページの集客、アクセスアップ、SEO対策効果が期待できるリスティングサイト=Ask-itをぜひご活用ください

Ask IT にようこそ。ここではコミュニティメンバーに質問したり、回答を得ることができます。
ITについて質問したい方へ ITについてプロに質問したい方は会員登録後すぐに質問をする事ができます。

プロフェッショナルの方へ 質問に答えていただけるプロフェッショナルの方は下記をご覧下さい

お気づきの点があれば是非お知らせください
...