Excel VBA質問箱 IV

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

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


37180 / 76732 ←次へ | 前へ→

【44726】Re:グループ分け
発言  Jaka  - 06/11/30(木) 11:11 -

引用なし
パスワード
   質問の内容がよく解ったないけど。
因みに"TEXT"の文字は大文字小文字区別してません。
してないって言うか、オートフィルタだと区別できない。

Dim ARY As Range
With Sheets("Sheet1")
  With .Range("A1", .Range("A65536").End(xlUp))
    .AutoFilter Field:=1, Criteria1:="<>*text*", Operator:=xlAnd
    With .Resize(.Rows.Count).Offset(1)
      For Each ARY In .SpecialCells(xlCellTypeVisible).Areas
        With ARY.Offset(, 1).Resize(, 3)
          .FormulaR1C1 = "=R11C1" '"=RC[-1]"
          .Value = .Value
        End With
      Next
    End With
  End With
  .AutoFilterMode = False
End With
0 hits

【44725】グループ分け 関西人 06/11/30(木) 10:43 質問
【44726】Re:グループ分け Jaka 06/11/30(木) 11:11 発言
【44731】訂正 Jaka 06/11/30(木) 14:11 発言
【44729】Re:グループ分け Kein 06/11/30(木) 13:53 回答
【44730】Re:グループ分け ハチ 06/11/30(木) 14:01 回答

37180 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free