目安箱 IV

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

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
29 / 118 ﾂﾘｰ ←次へ　｜　前へ→
【257】オートフィルタについて ｍｍ 10/1/8(金) 9:02 Excel[未読]
【259】Re:オートフィルタについて ｍｍ 10/1/8(金) 12:45 Excel[未読]
【260】Re:オートフィルタについて ponpon 10/1/8(金) 13:45 Excel[未読]
【259】Re:オートフィルタについて
Excel  ｍｍ  - 10/1/8(金) 12:45 -
引用なし
パスワード
   ▼ponpon さん：

あーーすみません
気づかなかったです
質問はここでは禁止だったんですね。

申し訳ございませんでした

でも、アドバイスありがとうございます

解読してみます
【260】Re:オートフィルタについて
Excel  ponpon  - 10/1/8(金) 13:45 -
引用なし
パスワード
   いっぱいミスがありました。

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(x)
　　　　 A(x) = .Cells(i, "A").Value
　　　　　x = x + 1
　　　 End If
　　Next
End With
With Sheets("Sheet2")
　　 .Range("A1").Resize(UBound(A()) + 1).Value = Application.Transpose(A())
End With
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
29 / 118 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：   
0
(SS)C-BOARD v3.8 is Free