Excel VBA質問箱 IV

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

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


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

32218 / 76734

←次へ　｜　前へ→


	【49755】Re:異なるブックに番号を追加したい

ウッシ - 07/6/19(火) 23:00 -


	引用なし

	パスワード

こんばんは

質問に合わせてありますが、ブック名、シート名は適宜変更して試して下さい。
データが無い場合等のエラー処理は適宜追加して下さい。

Sub test()
　　Dim mR As Range
　　With Workbooks("ブックA.xls").Worksheets("Sheet1")
　　　　Set mR = .Range("A1", .Cells(.Rows.Count, "A").End(xlUp)).Resize(, 2)
　　End With
　　With Workbooks("ブックB.xls").Worksheets("Sheet1")
　　　　mR.Copy .Cells(.Rows.Count, "A").End(xlUp).Offset(1)
　　　　With .Range("A1", .Cells(.Rows.Count, "A").End(xlUp)) _
　　　　　　　　.Offset(, .Columns.Count - 1)
　　　　　　.Formula = _
　　　　　　　　"=IF(AND(B1="""",COUNTIF(A:A,A1)>1),"""",1)"
　　　　　　.Value = .Value
　　　　　　.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
　　　　　　.Delete
　　　　End With
　　　　.Range("A1").Sort .Range("A1"), xlAscending, Header:=xlNo
　　End With
　　Set mR = Nothing
End Sub

4 hits

▼

【49728】異なるブックに番号を追加したい kona 07/6/18(月) 23:19