エクセルの学校：全文検索：Hyper Estraier：関数

Results of 1 - 1 of about 33536 for 関数 (0.006 sec.)

[[20240515173005]]: #score: 2646; @digest: bd9440ef03084ce18b51834db8596ae0; @id: 96728; @mdate: 2024-05-15T10:46:54Z; @size: 2600; @type: text/plain; #keywords: wssource (44434), checkcolumn (43390), targetworkbook (20867), wstarget (18595), 前ch (14647), sourcefilename (14111), targetrow (13451), targetfilename (12695), 有権 (12619), exportrowswithzeroorempty (7748), 象" (7064), 名ch (6633), 定so (6235), 名ta (5802), 所有 (4119), 的達 (3461), 定se (2530), 、ai (2357), 目行 (1781), lastrow (1148), 生成 (1054), 力先 (1051), に生 (940), 業列 (893), 達成 (706), 列、 (574), チェ (556), windows11 (540), ェッ (504), microsoft365 (478), ーチ (463), 出力 (447); 『違うエクセルに抽出したい』（初心者）
Excelのマクロでご教示いただきたく投稿させていただきます。下記の条件でマクロを作成しています。 H列、I列、AD列に0か空白が入っていたら、違うエクセルにまとめて保存されるようにしたい 5行目まではそのまま残したいご教示いただきたいのは、 AD列に0か空白が入っていたら除外と、追加で「所有権」という文字以外が入っていたら違うエクセルにまとめて保存ができるようにしたいです。 Sub ExportRowsWithZeroOrEmpty() Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim sourceFileName As String Dim targetFileName As String Dim targetWorkbook As Workbook Dim i As Long, lastRow As Long, targetRow As Long Dim checkColumn As String ' 設定 sourceFileName = "source.xlsx" ' 元のファイル名 targetFileName = "target.xlsx" ' 出力先のファイル名 checkColumn = "H" ' チェックする列の名前 checkColumn = "I" ' チェックする列の名前 checkColumn = "AD" ' チェックする列の名前 ' 元のワークシートを設定 Set wsSource = ThisWorkbook.Sheets(1) ' 新しいブックを作成してターゲットシートを設定 Set targetWorkbook = Workbooks.Add Set wsTarget = targetWorkbook.Sheets(1) ' 元のシートの最後の行を取得 lastRow = wsSource.Cells(wsSource.Rows.Count, checkColumn).End(xlUp).Row targetRow = 1 ' 各行をチェック For i = 1 To lastRow If IsEmpty(wsSource.Cells(i, checkColumn)) Or wsSource.Cells(i, checkColumn).Value = 0 Then wsSource.Rows(i).Copy Destination:=wsTarget.Rows(targetRow) targetRow = targetRow + 1 End If Next i どのように追加をすればよろしいでしょうか。お力を貸していただけますと幸いです。よろしくお願いいたします。＜使用 Excel:Microsoft365、使用 OS:Windows11 ＞ ---- おそらく、AIに生成させたんだとおもいますが、提示のコードについて、どこまで理解できていますか? 別案になりますが、たとえば 1. 6行目に項目行を挿入する 2. 作業列を挿入する 3. 作業列に「H列、I列のいずれかが0」or「H列、I列のいずれかが""」or「AD列が"所有権"」だったら"対象"と出力する数式を構築する 4. オートフィルタで作業列が"対象"のものを抽出する 5. 5行目までをコピペする 6. オートフィルタが設定されている範囲のうち、項目行と作業列を除いた範囲をコピーする 7. 新規ブックの1番目のシートのA1?セルに貼り付ける 8. ↑を名前を付けて保存して閉じるという処理をすることでも目的達成ができるとおもいます。したがって、AIに生成させたもので行き詰っているのであれば、上記のアプローチで考え直してみてはどうでしょうか? なお、【マクロの記録】で必要な命令を調べることができます。（もこな2 ） 2024/05/15(水) 19:46:54 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202405/20240515173005.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ