|
初めて質問します。過去ログ拝見しましたが、解決策が無いようでしたので書きます。
ある表を整理する方法で悩んでいます。
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
|
|