Excel VBA質問箱 IV

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

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


9516 / 76732 ←次へ | 前へ→

【72777】Re:二次元配列の列にcountif
発言  UO3  - 12/9/18(火) 21:53 -

引用なし
パスワード
   ▼H=R さん:

ですから、CountIfには使えませんが、2次元配列から単一行、単一列を抽出するサンプル。
ご参考まで。

Sub Sample()
  Dim v As Variant
  Dim w1 As Variant
  Dim w2 As Variant
  Dim w3 As Variant
  
  v = Range("A1:C5").Value '5行3列の2次元配列
  '配列の2行目だけを取り出す--->結果は1次元配列
  w1 = WorksheetFunction.Index(v, 2, 0)
  '配列の2列目だけを取り出す--->結果は5行1列の2次元配列
  w2 = WorksheetFunction.Index(v, 0, 2)
  '配列の2列目だけを取り出す--->結果は1次元配列
  w3 = WorksheetFunction.Transpose(WorksheetFunction.Index(v, 0, 2))
  
End Sub

0 hits

【72775】二次元配列の列にcountif H=R 12/9/18(火) 21:25 質問
【72776】Re:二次元配列の列にcountif UO3 12/9/18(火) 21:43 発言
【72777】Re:二次元配列の列にcountif UO3 12/9/18(火) 21:53 発言
【72782】Re:二次元配列の列にcountif H=R 12/9/18(火) 23:30 質問
【72783】Re:二次元配列の列にcountif UO3 12/9/19(水) 0:01 発言
【72784】Re:二次元配列の列にcountif H=R 12/9/19(水) 8:42 お礼
【72785】Re:二次元配列の列にcountif UO3 12/9/19(水) 9:48 発言
【72794】Re:二次元配列の列にcountif ウッシ 12/9/19(水) 15:11 回答
【72796】Re:二次元配列の列にcountif 12/9/19(水) 15:57 回答
【72798】Re:二次元配列の列にcountif H=R 12/9/19(水) 17:16 お礼
【72802】Re:二次元配列の列にcountif 12/9/20(木) 6:23 回答
【72803】Re:二次元配列の列にcountif H=R 12/9/20(木) 10:01 お礼

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