目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
40 / 277 ←次へ　｜　前へ→
【258】Re:オートフィルタについて
Excel  ponpon  - 10/1/8(金) 11:34 -
引用なし
パスワード
   ここでは、質問はできませんので
EXCEL質問箱の方へどうぞ。

オートフィルタでは、私の力ではできませんが、
別シートに書き出すなら
こんな感じで・・

Sub test()
　Dim A()
　Dim i As Long
　Dim x As Long
With Sheets("Sheet1")
　　For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
　　　
　　　 If Val(Right(.Cells(i, "A").Value, 1)) Mod 2 = 0 Then
　　　　 ReDim Preserve A(i)
　　　　 A(j) = .Cells(i, "A").Value
　　　　　j = j + 1
　　　 End If
　　Next
End With
With Sheets("Sheet2")
　　 .Range("A1").Resize(UBound(A()) - 1).Value = Application.Transpose(A())
End With
End Sub
1,398 hits
【257】オートフィルタについて ｍｍ 10/1/8(金) 9:02 Excel[未読]
【258】Re:オートフィルタについて ponpon 10/1/8(金) 11:34 Excel[未読]≪
【259】Re:オートフィルタについて ｍｍ 10/1/8(金) 12:45 Excel[未読]
【260】Re:オートフィルタについて ponpon 10/1/8(金) 13:45 Excel[未読]
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
40 / 277 ←次へ　｜　前へ→
ページ：  ┃  記事番号：   
0
(SS)C-BOARD v3.8 is Free