Excel VBA質問箱 IV

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

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


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

6763 / 76734

←次へ　｜　前へ→


	【75568】Re:マクロで、同じ番号行だけを残す方法

ザ　焼鳥男 - 14/5/18(日) 15:36 -


	引用なし

	パスワード

すいません。質問がぐちゃぐちゃになって見づらくなりました。
整理しますと
以下のコードで

Sub macro1()
　Dim LastRow As Long
　LastRow = Worksheets("Sheet2").Range("A65536").End(xlUp).Row

'結果シートを準備
　Worksheets("Sheet2").Copy after:=Worksheets("Sheet2")
　ActiveSheet.Name = "RESULT"

'ファイル１から転記、不要な行を抹消
　Range("C1:C" & LastRow).Formula = "=VLOOKUP(A1,Sheet1!A:D,3,FALSE)"
　On Error Resume Next
Range("C1:C" & LastRow).SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
Range("C1:C" & LastRow).Value = Range("C1:C" & LastRow).Value
End Sub
Sheet1
No.　　　　名称　　　　相対的強さ　　　　研究者
　　　　　　　　　　　　
F03　　　　精神力　　　　∞　　　　アドラー博士
F04　　　　筋力　　　　10＾38　　　　フランケンシュタイン博士
A01　　　　重力　　　　10＾0　　　　アインシュタイン博士
A02　　　　電磁気力　　　　10＾38　　　　マクスウエル博士
Sheet2
ナンバー　　　　ネーム　　　　ボゾン　　　　ボゾン質量　　　　方程式
A03　　　　弱い力　　　　Ｗ，Ｚボゾン　　　　有り　　　　ワインバーグ・サラム理論
A04　　　　強い力　　　　グルーオン　　　　有り　　　　標準理論
A01　　　　重力　　　　重力子　　　　無し　　　　アインシュタイン方程式
A02　　　　電磁気力　　　　光子　　　　無し　　　　マクスウエル方程式
　　　　　　　　　　　　　　　　

を、実行すると
A01　　　　重力　　　　10＾0　　　　無し　　　　アインシュタイン方程式
A02　　　　電磁気力　　　　10＾38　　　　無し　　　　マクスウエル方程式

となります。

下記を表示させるには、どこを修正すれば良いでしょうか？
ナンバー　　　　ネーム　　　　相対的強さ　　　　ボゾン質量　　　　方程式
A01　　　　重力　　　　10＾0　　　　無し　　　　アインシュタイン方程式
A02　　　　電磁気力　　　　10＾38　　　　無し　　　　マクスウエル方程式

19 hits

▼

【75555】マクロで、同じ番号行だけを残す方法 ザ　焼鳥男 14/5/17(土) 15:05