資料按照它的數量拆分出對應數量的資料---
如下圖
有沒有簡單一點的方法，資料量太大的話拆分起來太浪費時間了
能不能自動化拆分？
uj5u.com熱心網友回復：
弄了兩個worksheet，第一個sheet1，存放你上面的這些原始資料，第二個sheet2，存放結果，弄一個宏，宏代碼如下，試了一下，基本可以得到要求：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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/8888.html
標籤：VB基礎類