7,763
社区成员
发帖
与我相关
我的任务
分享
Sub Macro1()
Dim i, j As Integer
Dim iRow As Integer
For i = 2 To Sheet1.UsedRange.Rows.Count
Sheet1.Select
Sheet1.Range("A" & i & ":G" & i).Select
Selection.Copy
Sheet2.Select
Sheet2.Range("A" & (Sheet2.UsedRange.Rows.Count + 1)).Select
ActiveSheet.Paste
If Trim(Sheet1.Cells(i, 2)) <> "" Then
If Sheet1.Cells(i, 2) > 1 Then
iRow = Sheet2.UsedRange.Rows.Count + 1
Sheet2.Cells(iRow, 2) = 1
Sheet2.Cells(iRow, 3) = Sheet1.Cells(i, 3) / Sheet1.Cells(i, 2)
Sheet2.Cells(iRow, 4) = Sheet1.Cells(i, 4) / Sheet1.Cells(i, 2)
Sheet2.Cells(iRow, 5) = Sheet1.Cells(i, 5) / Sheet1.Cells(i, 2)
Sheet2.Cells(iRow, 6) = Sheet1.Cells(i, 6) / Sheet1.Cells(i, 2)
Sheet2.Range("B" & iRow & ":G" & iRow).Select
Selection.Copy
Sheet2.Range("B" & iRow & ":G" & iRow + Sheet1.Cells(i, 2) - 1).Select
ActiveSheet.Paste
End If
End If
Next
End Sub