Excel VBA質問箱 IV

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

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


158 / 74462 ←次へ | 前へ→

【79947】Re:特定の文字列(6種)の最大値
回答  γ  - 18/6/4(月) 0:21 -

引用なし
パスワード
   参考になりますか。

Sub testA()
  Dim rng As Range
  Dim constAreas As Areas
  Dim blankAreas As Areas
  Dim r As Range
  Dim k As Long
  
  Set rng = Range("C1:C15")  'end等を使って調整のこと
  Set constAreas = rng.SpecialCells(xlCellTypeConstants).Areas
  Set blankAreas = rng.SpecialCells(xlCellTypeBlanks).Areas
  
  For Each r In constAreas
    k = k + 1
    blankAreas(k).Value = WorksheetFunction.Max(r)
  Next
  
End Sub

69 hits

【79946】特定の文字列(6種)の最大値 chou 18/6/3(日) 23:49 質問[未読]
【79947】Re:特定の文字列(6種)の最大値 γ 18/6/4(月) 0:21 回答[未読]
【79952】Re:特定の文字列(6種)の最大値 マナ 18/6/4(月) 21:14 発言[未読]
【79953】Re:特定の文字列(6種)の最大値 マナ 18/6/4(月) 22:14 発言[未読]
【79956】Re:特定の文字列(6種)の最大値 chou 18/6/5(火) 9:18 質問[未読]
【79957】Re:特定の文字列(6種)の最大値 chou 18/6/5(火) 13:35 質問[未読]
【79958】Re:特定の文字列(6種)の最大値 マナ 18/6/5(火) 19:09 発言[未読]
【79963】Re:特定の文字列(6種)の最大値 chou 18/6/7(木) 10:57 お礼[未読]

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