Excel VBA質問箱 IV

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

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


281 / 74432 ←次へ | 前へ→

【79793】Re:縦並びのデータを横並びにしたい
回答  よろずや  - 18/4/13(金) 17:17 -

引用なし
パスワード
   副作用のないバージョン
Sub Macro3()
Const FirstRow = 1
Const SourceCol = 1
Const TargetRow = 1
Const FirstCol = 4
Dim SourceRow As Long
Dim TargetCol As Long
Dim FoundCell As Range
Dim SearchCol As Long
  TargetCol = FirstCol - 2
  For SourceRow = FirstRow To Cells(Rows.Count, SourceCol).End(xlUp).Row
    ' 地味に探すバージョン
    Set FoundCell = Nothing
    For SearchCol = FirstCol To TargetCol Step 2
      If Cells(TargetRow, SearchCol).Value = Cells(SourceRow, SourceCol).Value Then
        Set FoundCell = Cells(TargetRow, SearchCol + 1)
        Exit For
      End If
    Next SearchCol
    If FoundCell Is Nothing Then
      TargetCol = TargetCol + 2
      ' 2値代入バージョン
      Cells(TargetRow, TargetCol).Resize(1, 2).Value = Cells(SourceRow, SourceCol).Resize(1, 2).Value
    Else
      ' 値加算バージョン
      FoundCell.Value = FoundCell.Value + Cells(SourceRow, SourceCol + 1).Value
    End If
  Next SourceRow
End Sub

83 hits

【79788】縦並びのデータを横並びにしたい muco 18/4/13(金) 11:12 質問[未読]
【79790】Re:縦並びのデータを横並びにしたい よろずや 18/4/13(金) 11:45 発言[未読]
【79791】Re:縦並びのデータを横並びにしたい muco 18/4/13(金) 11:57 発言[未読]
【79792】Re:縦並びのデータを横並びにしたい よろずや 18/4/13(金) 17:13 回答[未読]
【79793】Re:縦並びのデータを横並びにしたい よろずや 18/4/13(金) 17:17 回答[未読]
【79798】Re:縦並びのデータを横並びにしたい muco 18/4/16(月) 11:35 お礼[未読]
【79794】Re:縦並びのデータを横並びにしたい マルチネス 18/4/14(土) 8:09 発言[未読]

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