Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

39571 / 76732

←次へ　｜　前へ→


	【42271】Re:条件数の変化

Kein - 06/9/5(火) 11:56 -


	引用なし

	パスワード

まず、表1と表2の配置が

表1 → B:L列、表2 → N:X列　を列範囲として、行数は各表においては同じだが、
1と2を比較すると違うかつどちらも一定ではない。(開始行はいずれも7行目)
Ketwordの入力されているところは、L列とX列。

という条件のとき Workbooks("wb").Sheets("sheet1") の A:K列 1行目から、
表1,2の該当するデータを並べていく、という処理にするなら

Sub TestA()
　 Dim Sh As Worksheet
　 Dim LR1 As Long, LR2 As Long
　
　 Set Sh = Workbooks("wb.xls").Sheets("Sheet1")
　 LR1 = Range("L65536").End(xlUp).Row
　 LR2 = Range("X65536").End(xlUp).Row
　 Range("IV:IV").ClearContents
　 On Error Resume Next
　 With Range("IV7:IV" & LR1)
　　　.Formula = _
　　　"=IF(OR(L7=""不要"",L7=""必要"",L7=""賞味期限""),1,"""")"
　　　Intersect(.SpecialCells(3, 1).EntireRow, Range("B:L")) _
　　　.Copy Sh.Range("A65536").End(xlUp).Offset(1)
　　　.ClearContents
　 End With
　 With Range("IV7:IV" & LR2)
　　　.Formula = _
　　　"=IF(OR(X7=""不要"",X7=""必要"",X7=""廃棄"",X7=""新品""),1,"""")"
　　　Intersect(.SpecialCells(3, 1).EntireRow, Range("N:X")) _
　　　.Copy Sh.Range("A65536").End(xlUp).Offset(1)
　　　.ClearContents
　 End With
　 Set Sh = Nothing
End Sub

0 hits

▼

【42049】条件数の変化 もとあし 06/8/30(水) 13:38