Excel VBA質問箱 IV

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

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


13639 / 76732 ←次へ | 前へ→

【68596】Re:他シートを参照しているデータの並べ替え
発言  UO3  - 11/3/28(月) 18:25 -

引用なし
パスワード
   ▼すず さん:

上でご提案した方式の場合のコード案です。

Sub Sample()
  Dim c As Range, myA As Range
  Dim x As Long
  Dim v As Variant
  Dim s As String
  
  Application.ScreenUpdating = False
  
  With Sheets("Sheet1")
    With .UsedRange
      Set myA = Intersect(.Cells, .Offset(1))
      If Not myA Is Nothing Then myA.ClearContents
    End With
    Set myA = .Range("A2")
  End With
  
  With Sheets("Sheet2")
    .Cells.Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlYes
    For Each c In .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
      x = .Cells(c.Row, .Columns.Count).End(xlToLeft).Column
      v = c.Offset(, 1).Resize(, x - 1).Value
      If IsArray(v) Then
        v = WorksheetFunction.Index(v, 1, 0)
        s = Join(v, ",")
      Else
        s = v
      End If
      myA.Value = c.Value
      myA.Offset(, 1).Value = s
      Set myA = myA.Offset(1)
    Next
  End With
  
  Set myA = Nothing
  Application.ScreenUpdating = True
      
End Sub
0 hits

【68577】他シートを参照しているデータの並べ替え すず 11/3/27(日) 1:54 質問
【68578】Re:他シートを参照しているデータの並べ替え マジ山レス次郎 11/3/27(日) 4:25 発言
【68590】Re:他シートを参照しているデータの並べ替え UO3 11/3/28(月) 10:18 発言
【68596】Re:他シートを参照しているデータの並べ替え UO3 11/3/28(月) 18:25 発言
【68603】Re:他シートを参照しているデータの並べ替え すず 11/3/28(月) 23:21 発言

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