目安箱 IV

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

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
18 / 107 ツリー ←次へ | 前へ→

【257】オートフィルタについて mm 10/1/8(金) 9:02 Excel[未読]

【258】Re:オートフィルタについて ponpon 10/1/8(金) 11:34 Excel[未読]
【259】Re:オートフィルタについて mm 10/1/8(金) 12:45 Excel[未読]
【260】Re:オートフィルタについて ponpon 10/1/8(金) 13:45 Excel[未読]

【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

【259】Re:オートフィルタについて
Excel  mm  - 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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
18 / 107 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free