0
我是按以下格式数据重复单元A,如果列包含数据,Excel的VBA
CardMinder 5 4.1
Citrix Authentication Manager 6 5.1 7 8 5
Citrix Receiver Inside 4.2 4.1 4.3 4.4 4
我试图多次以每次写一些代码,将借此和添加的第一列之后的列。
例
CardMinder 5
CardMinder 4.1
我有一定的工作代码,但它一次只能工作在一行,并增加了多个空行中的行之间,如果我跑了两次。我不确定我做错了什么。
您的帮助表示赞赏。
Sub createVersions()
Dim sheet As Worksheet
Set sheet = ActiveSheet
'Loop through columns in Excel sheet
Dim LastRow As Long, LastCol As Integer, c As Integer, r As Long
LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).row
LastCol = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
For r = 1 To LastRow
If (LastCol > 2) Then
'Check column 3 to end for contents
For c = 3 To LastCol
rngParent = sheet.Cells(r, "A").Value
initChild = sheet.Cells(r, c).Value
If (initChild <> "") Then
'insert a row for extra column data
ActiveCell.EntireRow.Insert Shift:=xlShiftDown
sheet.Cells(r + 1, "A").Value = rngParent
sheet.Cells(r + 1, "B").Value = initChild
End If
Next c
End If
Next r
End Sub
我试过这段代码,它什么都没做。 –
OH我得到它的工作只需要更改工作簿调用设置wsVersionList = ActiveWorkbook.Sheets.Add 谢谢你的帮助 –