Это первый раз, когда я застрял после получения всей помощи с этого сайта за последние 5 лет.Это мой первый вопрос, поэтому, возможно, и не в этом суть, но я буду стараться изо всех сил.Мои исходные данные похожи на изображение Snip1, где столбцы A, B и C объединены и содержат некоторые значения, от столбца D до K он имеет соответствующие значения месяца.
Snip1
Выход будет таким, как указано в Snip2, где значения столбцов A, B и C остаются неизменными, а затем в Dбудет соответствующий месяц, где есть какое-то значение, и тогда столбец E будет иметь это значение.Если есть значение в другом месяце, то в строке 2 будет помещено то же значение столбцов A, B и C и соответствующего месяца, где есть значение, за которым следует значение в столбце E.
Snip2
Это будет продолжаться до последней заполненной ячейки столбцов A, B и C. Возможно ли это с макросом?
Sub Example()
Dim myRow AsLong Dim rowPointer As Long Dim columnPointer As Long Dim lastColumn As Long Dim LastRowIndex As Long
myRow = 1
LastRowIndex = Worksheets ("sheet1"). Cells (Rows.Count, 1).End (xlUp) .Row
For rowPointer = 2 To LastRowIndex
lastColumn = Sheet1.Cells(rowPointer, Columns.Count).End(xlToLeft).Column
For columnPointer = 2 To lastColumn
Sheet2.Cells(myRow, 1).Value = Sheet1.Cells(rowPointer, 1).Value
Sheet2.Cells(myRow, 3).Value = Sheet1.Cells(rowPointer, columnPointer).Value
myRow = myRow + 1
Next columnPointer
Next rowPointer
End Sub