Excel VBA 質問スレ Part71

2021/05/25(火) 12:48:01.06

!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part70
https://mevius.5ch.net/test/read.cgi/tech/1616072923/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2021/05/25(火) 14:39:07.41

↑おつ

2021/05/25(火) 15:29:32.37

>紙の表を目で追いながら画面を見ずにどんどん入力するとか普通にある

下手に補完機能とか発動するとうざいよな

2021/05/26(水) 13:42:07.91

時々画面も見たほうがいいぞ

2021/05/26(水) 18:56:30.36

画像のような処理をするコードを書きたいのですが・・・
整理番号に対してアルファベットがランダムに振られており、それをまとめるというようなコードです。
ただし、まとめたい整理番号は行が飛び飛びになっており固定されております。
forやifなどを少しかじっただけのため、頑張ってみましたが全くできませんでした。
何卒宜しくお願いいたします。

https://i.imgur.com/w5P4FX4.jpg

2021/05/26(水) 19:27:52.83

いつものあいつ

2021/05/26(水) 20:40:38.47

のんびりやろうぜ

**デフォルトの名無しさん** (JP 0H7f-4P7j) · 2021/05/26(水) 20:43:32.54

>>5
法則がまったくわからん

2021/05/26(水) 20:57:38.79

>>5ですがウンコしてたら閃いてできました。でももしどなたか書いてくださってたら、参考のために見せていただけると嬉しいです。

>>8
整理番号に対してくっついているアルファベットを、重複削除して横向きに整頓したという感じです。

2021/05/26(水) 22:04:20.25

ID:mkbiTVsAdはとにかく繊維質と水分を十分に摂って山ほどウンコしろ
そうすればこのスレを必要とする事も無くなるだろ

2021/05/26(水) 22:11:44.89

入力データは違うけど、Ruby で作ってみた

require 'csv'

tmp_hash = { }
input_ary = CSV.read( "input.csv" ) # 2次元配列

input_ary.each do | row | # 1行ずつ処理する
if tmp_hash.has_key? row[ 0 ] # 既に、その数字が存在すれば
# 文字列が存在しない時だけ、その文字列を追加する
tmp_hash[ row[ 0 ] ][ row[ 1 ] ] = true unless
tmp_hash[ row[ 0 ] ].has_key? row[ 1 ]
else
tmp_hash[ row[ 0 ] ] = { row[ 1 ] => true }
end
end

result_ary = tmp_hash.map do |num, hash|
ary = hash.map { |str, b_true| str }
[ num, *ary ] # 配列展開
end

# p result_ary # 2次元配列
# [["1", "A"], ["2", "B", "C"], ["3", "X"]]

csv_str = result_ary.map( &:to_csv ).join # 2次元配列を、CSV 文字列に変換する
print csv_str

出力
1,A
2,B,C
3,X

**デフォルトの名無しさん** (JP 0H7f-4P7j) · 2021/05/26(水) 22:16:14.20

>>9
1と3は、整理前と整理後で同じ行にあるけど、2と4が上に移動してる理由がわからん
移動量も違うし
条件は全部文章で書いて

2021/05/26(水) 22:55:47.72

いつものあいつ＝ruby馬鹿

2021/05/26(水) 23:30:39.65

>>5
Dictioraryを使わずにデータを1列目～2列目、出力先を4列目以降であると仮定する

配列 = Range(Cells(出力先の1番上の行,4),Cells(出力先の1番下の行,4))

For i = LBound(配列,1) to UBound(配列,1)
For j = データの一番上の行 to データの一番下の行
If Cells(j,1).Value = 配列(i,LBound(配列,2) Then
If 配列(i,UBound(配列,2) <>″″ Then
ReDim Preserve 配列(LBound(配列,1) to UBound(配列,1),LBound(配列,2) to UBound(配列,2)+1)
End If
For k = LBound(配列,2) to UBound(配列,2)
If 配列(i,k) = Cells(j,1),Value Then
Exit For
Else If 配列(i,k) = ″″ Then
配列(i,k) = Cells(j,1),Value
End If
Next
Next
Next

ってやって出力するとか？
思いつきで適当にやったから動かなかったらゴメンね

2021/05/27(木) 01:00:26.94

>>12
移動後の整理番号の位置は決まっているだけ　という話なのですが...　というかそれは書いてあるのですが

2021/05/27(木) 01:01:43.36

>>14
おお　ありがとうございます
参考にさせていただきます

>>11
このバカはなんですか？

2021/05/27(木) 08:26:53.22

>>5
ピボットテーブルでいいやん

2021/05/27(木) 11:03:53.72

>>17
添付画像は簡略化してあるだけなので...
本当に画像みたいなデータしかないんだったらいいかもしれないですが...

2021/05/28(金) 11:25:16.55

>>11
頭が悪いの？
大丈夫？
日常生活は遅れてる？

2021/05/28(金) 12:11:04.92

>>19
聞いても無駄
自覚できてないからずっとこんなこと続けてるんだろ

2021/05/28(金) 14:13:31.59

Ａ列がＫｅｙ、Ｂ列がＩｔｅｍが入っていたとして、一括でＤｉｃｔｉｏｎａｒｙに代入する方法はありますか

今はＦｏｒで処理していますが、
For r = 1 To 10000
dic.Add Cells(r, 1), Cells(r, 2)
Next r

だと読み込みに時間がかかり、配列のほうが早いくらいです

2021/05/28(金) 15:04:21.04

どう頑張っても配列のほうが速いよ

**デフォルトの名無しさん** (JP 0H75-B6Af) · 2021/05/28(金) 16:57:29.10

配列を経由してDicに入れると多少は速くなると思う
確認はしてない

Sub Macro1()
　　Dim Dic As Object
　　Set Dic = CreateObject("Scripting.Dictionary")
　　Dim aa()
　　aa = Range("A1:B10000")
　　For r = 1 To 10000
　　　　Dic.Add aa(r, 1), aa(r, 2)
　　Next
End Sub

2021/05/28(金) 17:29:35.83

そもそもDictionaryにRange型も入れられるんじゃないっけ？
だから「配列の方が速い」という使い方ならCellsの後にValue付けなきゃいかんのでは

21 (ﾜｯﾁｮｲ 49cc-f5pr) · 2021/05/28(金) 18:05:19.20

>>23
ありがとうございます。

2021/05/28(金) 18:55:00.91

>>21
スピードを求めているの？
ならシートにSQL投げた方が速い場合もあるよ
格納場所はRecordsetになるけど

2021/05/29(土) 00:17:36.64

>>24
それだと重複時に例外が出るメリットが生かせないのでは
配列でいいって言ってるから保証出来てるのかも知れないが

（最終的な目的次第では不要な可能性もあるけど）Dictionaryが必須だとしたら、
使用しない行を予めオートフィルターで弾いて読み込む行自体を減らすのがいいと思う