0
A
答えて
0
助けるべき次のとおりです。
Option Explicit
Sub Demo()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim lastRow As Long, lastCol As Long, rowIndex As Long, colIndex As Long
Dim i As Long, currRow As Long
Dim ws As Worksheet, arr
Set ws = ThisWorkbook.Worksheets("Sheet1") 'change Sheet1 to your working sheet
With ws
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'get last row in column A
lastCol = Cells(3, Columns.Count).End(xlToLeft).Column 'get last column in row 3
currRow = 3 'output will be displayed from row 3
For rowIndex = 4 To lastRow 'loop through all rows in input starting with row 4
For colIndex = 2 To lastCol 'loop trough all columns in input starting form column 2
arr = Split(.Cells(rowIndex, colIndex).Value, ",") 'put comma separated value of a cell in array
For i = LBound(arr) To UBound(arr) 'loop through array item
.Range("I" & currRow).Value = .Range("A" & rowIndex).Value 'display name
.Range("J" & currRow).Value = .Cells(3, colIndex) 'display date
.Range("K" & currRow).Value = Trim(arr(i)) 'display cell value
currRow = currRow + 1 'increment crrRow value by 1
Next i
Next colIndex
Next rowIndex
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
は参照用の画像を参照してください。
関連する問題
- 1. バイト配列を複数のシートを含むExcelファイルにコピー
- 2. Vueテーブル、サブオブジェクトを含む複数の配列を持つリスト
- 3. 複数の配列を含むJSONオブジェクト
- 4. 複数のタブを含むテーブルまたはCSVをExcelに書き込む
- 5. 複数の変数を含む角度1.x配列プッシュ
- 6. 複数のベクトルを含む配列からの値を扱う
- 7. 複数の配列を含む配列をgoogleスクリプトに追加する
- 8. 文字列を含むMatlab多次元配列+ Excelへのエクスポート
- 9. AS400 - 複数のメンバーを含むAS400テーブルからExcelにデータをダウンロード
- 10. 複数の配列を含むバイナリツリー構造
- 11. 複数の配列を含むAvro共用体
- 12. 複数列ヘッダーを含む水平列
- 13. 挿入(INSERT INTO)配列を含む別のテーブルにテーブル(SERIAL)
- 14. テーブルの行の値の配列を含むSQLの列
- 15. 複数のテーブルのデータを含むテーブルを更新する
- 16. 複数の文字列を含むサブストリング
- 17. Sort Objective-c配列を含むオブジェクトを含む配列
- 18. 角度JS - 配列を含むテーブルの列でフィルタテキスト
- 19. 複合型の複数の配列を含むテキストファイルを作成する
- 20. HBase:列ファミリに複数の列を含むhbaseテーブルを作成する
- 21. 複数のASPxGridViewを別のシートを含むExcelにエクスポート
- 22. 複数のタブを含む複数のExcelシートをMATLABにインポートする
- 23. 配列を含むオブジェクトを含む配列をテーブルにエコーするときに助けが必要
- 24. excelを使用する複数のワークシートを含むデータソーステストステップ?
- 25. 複数のシートを含むExcelファイルをダウンロード
- 26. 配列を含むソート配列ios
- 27. EXCEL - 複数の条件を含む検索式
- 28. 複数のネストされたIfステートメントを含むExcel CountIf
- 29. ベクトルを含むセル配列をMATLABのテーブルに変換する
- 30. VBA SQLのテーブルに複数の列を含む更新文を挿入
お試しください。 –
この例では問題がよく定義されていません。あなたの例では、30/07/2017の3行の出力しか表示しないので、日付の項目の複数の出現は、出現ごとの行ではなく出力行を1つだけ生成しなければなりません(@ Mrigは仮定した)。それは最初の2つの入力列に切り捨てるのではなく、あなたの例に完全な出力表を含めた方が明らかでしょう。あなたは 'VBA'であなたの質問にタグを付けていないので、あなたはVBAを避ける解決策を探していますか? – DMM