Excel VBA質問箱 IV

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

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


7125 / 76732 ←次へ | 前へ→

【75198】複数の異なる値を取り込んで、順に処理したいです
質問  初心者M  - 14/1/7(火) 10:38 -

引用なし
パスワード
   初めて質問します。過去ログ拝見しましたが、解決策が無いようでしたので書きます。

ある表を整理する方法で悩んでいます。

5100 A
7600 イ
6800 イ

などのようなデータが数行に渡って存在する表で、同じ「イ」なら大きい数の7600に合わせる、というような処理をしたいです。
「A」や「イ」などの記号は、無作為に数パターン存在します。

アレイ関数や配列変数などいろいろ調べてみたのですが、上手い手が思いつきません。
記号を取り込んで、順に取り出せるような処理をお教えいただけませんか。

参考までに、記号が無作為でなく、「A」と決め打ちであれば、下のコードで動きます。

初心者なのでお恥ずかしいですが載せておきます。
宜しくお願い致します。

___________________________________

Public Sub 持ち上げ()

Dim x As Integer '行
Dim y As Integer '列

Dim Int1 As Integer '部数
Dim Int2 As Integer '部数最大値


'最大値を取得

For x = 6 To 44
  For y = 8 To 33
  
    If Cells(x, y).Value = "A" Then
    
      Int1 = Cells(x, y - 1).Value
      
        If Int1 > Int2 Then
        Int2 = Int1
       
        End If
    End If
  
  Next
Next

'最大値に揃える

For x = 6 To 44
  For y = 8 To 33
  
    If Cells(x, y).Value = "A" Then
Cells(x, y - 1).Value = Int2

 End If
  Next
Next
258 hits

【75198】複数の異なる値を取り込んで、順に処理したいです 初心者M 14/1/7(火) 10:38 質問
【75199】Re:複数の異なる値を取り込んで、順に処理... kanabun 14/1/7(火) 14:56 発言
【75201】Re:複数の異なる値を取り込んで、順に処理... 初心者M 14/1/7(火) 15:29 お礼
【75202】Re:複数の異なる値を取り込んで、順に処理... 初心者M 14/1/7(火) 15:54 お礼
【75203】Re:複数の異なる値を取り込んで、順に処理... kanabun 14/1/7(火) 17:05 発言
【75204】Re:複数の異なる値を取り込んで、順に処理... 初心者M 14/1/7(火) 17:28 お礼

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