Excel VBA質問箱 IV

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

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


91 / 74991 ←次へ | 前へ→

【80545】Re:ユーザ名を比較して、存在していないユーザを補完したい
発言  amatsuno  - 19/3/1(金) 19:56 -

引用なし
パスワード
   ▼amatsuno さん:
>▼マナ さん:
>>▼amatsuno さん:
>>
>>>vlookupなどを使用する感じでしょうか?
>>
>>はい。
>
>
>すいません。
>正確にはこのような感じです
>
>シート1:
>カラムA,カラムB,カラムC
>
>NAME-1,00:22:22
>NAME-1.00:33:33
>NAME-2,AAAA
>NAME-3,00:12:34
>NAME-4,00:23:33
>NAME-5,00:55:16
>NAME-5,00:17:27
>NAME-5,00:55:16
>NAME-6,HHHHH
>
>シート2: ⇒シート1から抽出
>カラムA,カラムB
>
>NAME-1,00:55:55
>NAME-3,00:12:34
>NAME-4,00:23:33
>NAME-5,02:07:59
>
>※カラムAはシート1のカラムCが時間を持っているユーザ
>※カラムBはシート1のカラムCの合計値
>
>実行結果
>シート3:
>カラムA,カラムB
>
>NAME-1,00:55:55
>NAME-2,23:59:58
>NAME-3,00:12:34
>NAME-4,00:23:33
>NAME-5,03:30:30
>NAME-6,02:07:59
>
>
>1)シート3のA列(NAME-*)は、シート1と同じ並びで出力させたいです
>2)シート3のB列(**:**:**)は、シート2で存在しているユーザーはシート2のB列を、シート2に存在していないユーザーは、「23:59:58」を入れたいと考えています
>
>
>お手数であはありますが、お分かりになられる方、よろしくお願いいたします


で、上記の条件に対して

 With Worksheets("シート1")
   For i3 = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
     vK2 = .Cells(i3, "A").Value
     dic2(vK2) = dic2(vK2) + .Cells(i3, "B")
   Next
  End With

  ReDim vA3(1 To dic2.Count, 1 To 2)
  i3 = 0
  For Each vK2 In dic2.Keys
   i3 = i3 + 1
   vA3(i3, 1) = vK2
   vA3(i3, 2) = dic2(vK2)
  Next

  Application.ScreenUpdating = False
  With Worksheets("シート2")
   With .Range("A1").Resize(i3, 2)
     .EntireColumn.ClearContents
     .Value = vA3
     .Columns(2).NumberFormatLocal = "h:mm:ss"
     Application.Goto .Cells(1), True
   End With
  End With
  Application.ScreenUpdating = True

  Rows(1).Insert

まで実施しました。
このときのシート1にあってシート2にいないユーザの追加の箇所でとまりました

とりあえずvlookupで試してみます

58 hits

【80531】ユーザ名を比較して、存在していないユーザを補完したい amatsuno 19/2/28(木) 13:52 質問[未読]
【80537】Re:ユーザ名を比較して、存在していないユ... マナ 19/2/28(木) 18:46 発言[未読]
【80540】Re:ユーザ名を比較して、存在していないユ... amatsuno 19/3/1(金) 19:19 発言[未読]
【80543】Re:ユーザ名を比較して、存在していないユ... マナ 19/3/1(金) 19:39 発言[未読]
【80544】Re:ユーザ名を比較して、存在していないユ... amatsuno 19/3/1(金) 19:52 発言[未読]
【80545】Re:ユーザ名を比較して、存在していないユ... amatsuno 19/3/1(金) 19:56 発言[未読]
【80546】Re:ユーザ名を比較して、存在していないユ... でれすけ 19/3/1(金) 20:24 発言[未読]
【80551】Re:ユーザ名を比較して、存在していないユ... amatsuno 19/3/4(月) 9:12 お礼[未読]
【80547】Re:ユーザ名を比較して、存在していないユ... マナ 19/3/1(金) 21:39 発言[未読]
【80552】Re:ユーザ名を比較して、存在していないユ... amatsuno 19/3/4(月) 9:44 回答[未読]
【80555】Re:ユーザ名を比較して、存在していないユ... マナ 19/3/4(月) 19:45 発言[未読]
【80558】Re:ユーザ名を比較して、存在していないユ... amatsuno 19/3/7(木) 10:26 お礼[未読]
【80560】Re:ユーザ名を比較して、存在していないユ... マナ 19/3/7(木) 20:16 発言[未読]
【80550】Re:ユーザ名を比較して、存在していないユ... マナ 19/3/2(土) 15:59 発言[未読]
【80561】Re:ユーザ名を比較して、存在していないユ... マナ 19/3/7(木) 21:48 発言[未読]

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