テキスト値に基づいてワークシート間で行をコピーする(Microsoft Excel)
マリアンは、行の列Eでの特定のテキスト値(「はい」)の出現に基づいて、あるワークシートから別のワークシートに行全体をコピーする方法があるかどうか疑問に思います。 Vlookupは、このタイプの評価では機能しないようです。
このタイプのタスクを散発的に実行するだけでよい場合は、Excelのフィルタリング機能を使用するだけです。フィルタをオンにしてデータをフィルタリングし、列Eに「はい」の行のみが表示されるようにします。表示されている行をコピーして、必要なワークシートに貼り付けます。
より頻繁にタスクを実行する必要がある場合は、マクロを作成してコピーを簡単にすることができます。次のマクロは、Sheet1の最初の1,000行を調べ、列Eに「yes」を含む行をSheet2にコピーします。
Sub CopyYes() Dim c As Range Dim j As Integer Dim Source As Worksheet Dim Target As Worksheet ' Change worksheet designations as needed Set Source = ActiveWorkbook.Worksheets("Sheet1") Set Target = ActiveWorkbook.Worksheets("Sheet2") J = 1 ' Start copying to row 1 in target sheet For Each c In Source.Range("E1:E1000") ' Do 1000 rows If c = "yes" Then Source.Rows(c.Row).Copy Target.Rows(j) j = j + 1 End If Next c End Sub
マクロは、Sheet2にすでにある情報を上書きすることに注意してください。また、これは「動的」ではありません。つまり、列Eの値が変更され、Sheet2の行にそれらの変更を反映させたい場合、マクロは役に立ちません。
あるワークシートから別のワークシートに情報を自動的にコピーすることに関する追加情報は、次のWebサイトにあります。
https://www.mrexcel.com/forum/excel-questions/602635- automatically-move-entire-rows-one-worksheet-into- another-worksheet-same-workbook.html
ここではURLが3行で表示されていますが、すべて1つのURLです。すべてをブラウザに確実に取り込む必要があります。
注:
このページ(または_ExcelTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。
link:/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]
。
_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。
このヒント(13399)は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice365のExcelに適用されます。