A列にID番号（012345等の文字列化した数字）
B列に属性（A、B、C等の文字列）
C列に数値
のようなデータがあります。
1行目はタイトル行です。
最優先されるキーをA列、2番目に優先されるキーをB列にして並べ替えてあります。
A列、B列のデータは重複するものがあります。
このデータを、
A列のID番号が同じだった場合、上の属性がA、次の行の属性がBの組み合わせだった場合のみ、下の行のC列の数値データを上の行のC列の数値に加算して、下の行を削除します。
以下のマクロを書き、うまくいきました。
Sub 集計()
Dim i As Long, r As Long
r = Cells(65536, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = r To 2 Step (-1)
If Cells(i, 1) = Cells(i - 1, 1) Then
If Cells(i, 2) = "B" And Cells(i - 1, 2) = "A" Then
Cells(i - 1, 3) = Cells(i - 1, 3) + Cells(i, 3)
Rows(i).Delete
End If
End If
Next
Application.ScreenUpdating = False
End Sub
しかし、データ数が多いので1分以上かかってしまいます。
多分、配列に取り込んで処理できれば飛躍的に高速化できるとは思うのですが、
V = Range(Cells(2, 1), Cells(r, 3)).Value
と取り込んだあと、どう処理したらいいのかわかりません。
教えてください。
A列にID番号（012345等の文字列化した数字）
B列に属性（A、B、C等の文字列）
C列に数値
のようなデータがあります。
1行目はタイトル行です。
最優先されるキーをA列、2番目に優先されるキーをB列にして並べ替えてあります。
A列、B列のデータは重複するものがあります。
このデータを、
A列のID番号が同じだった場合、上の属性がA、次の行の属性がBの組み合わせだった場合のみ、下の行のC列の数値データを上の行のC列の数値に加算して、下の行を削除します。
以下のマクロを書き、うまくいきました。
Sub 集計()
Dim i As Long, r As Long
r = Cells(65536, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = r To 2 Step (-1)
If Cells(i, 1) = Cells(i - 1, 1) Then
If Cells(i, 2) = "B" And Cells(i - 1, 2) = "A" Then
Cells(i - 1, 3) = Cells(i - 1, 3) + Cells(i, 3)
Rows(i).Delete
End If
End If
Next
Application.ScreenUpdating = False
End Sub
しかし、データ数が多いので1分以上かかってしまいます。
多分、配列に取り込んで処理できれば飛躍的に高速化できるとは思うのですが、
V = Range(Cells(2, 1), Cells(r, 3)).Value
と取り込んだあと、どう処理したらいいのかわかりません。
教えてください。
現在オプションボタンにて設定下記のようにしています。
オプションボタンをいくつか設置しており、どれか選択すると下記のコードへ飛んできます。
どれか選択すると、enabledをtrueにし、OKボタンをクリックできる。そしてどのオプション
ボタンを選択したのか他のモジュールから確認する為tagにその痕跡を残すように設定しています。
Public Sub OptionButton1_Click()
'オプションボタン選択動作。OKボタンを有効へ
Cmd_ok.Enabled = True
OptionButton1.Tag = True
End Sub
Public Sub OptionButton2_Click()
'オプションボタン選択動作。OKボタンを有効へ
Cmd_ok.Enabled = True
OptionButton2.Tag = True
End Sub
Public Sub OptionButton3_Click()
'オプションボタン選択動作。OKボタンを有効へ
Cmd_ok.Enabled = True
OptionButton3.Tag = True
End Sub
*＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
そして下記のコードでどのオプションボタンが選択されたのか確認しています。
For i = 1 To 3
If UserForm1.Controls("OptionButton" & i).Tag = True Then
ｘｘｘ = i
End If
Next i
*****＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
一番上にある『OptionButton1.Tag = True』と設定しているものを選択されたオプションボタン
からみて相対的な表現に変更できないでしょうか？
意味としては『現在選択されているオプションボタンのtag = true』といった表現です。
現状でも目的は果たせますが、これからボタンが複数になった場合、オプションボタンのオブジェクト名を変更しなくなった時に手間がしないようにする事が目的です。
もしくはもっとスマートなコードがあれば歓迎です。
ご指導お願いします。
現在オプションボタンにて設定下記のようにしています。
オプションボタンをいくつか設置しており、どれか選択すると下記のコードへ飛んできます。
どれか選択すると、enabledをtrueにし、OKボタンをクリックできる。そしてどのオプション
ボタンを選択したのか他のモジュールから確認する為tagにその痕跡を残すように設定しています。
Public Sub OptionButton1_Click()
'オプションボタン選択動作。OKボタンを有効へ
Cmd_ok.Enabled = True
OptionButton1.Tag = True
End Sub
Public Sub OptionButton2_Click()
'オプションボタン選択動作。OKボタンを有効へ
Cmd_ok.Enabled = True
OptionButton2.Tag = True
End Sub
Public Sub OptionButton3_Click()
'オプションボタン選択動作。OKボタンを有効へ
Cmd_ok.Enabled = True
OptionButton3.Tag = True
End Sub
*＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
そして下記のコードでどのオプションボタンが選択されたのか確認しています。
For i = 1 To 3
If UserForm1.Controls("OptionButton" & i).Tag = True Then
ｘｘｘ = i
End If
Next i
*****＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
一番上にある『OptionButton1.Tag = True』と設定しているものを選択されたオプションボタン
からみて相対的な表現に変更できないでしょうか？
意味としては『現在選択されているオプションボタンのtag = true』といった表現です。
現状でも目的は果たせますが、これからボタンが複数になった場合、オプションボタンのオブジェクト名を変更しなくなった時に手間がしないようにする事が目的です。
もしくはもっとスマートなコードがあれば歓迎です。
ご指導お願いします。
