- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-2-26
  
|
回復 1# julianwic
不知道對不對！- Sub ex()
- Dim sh As Worksheet
- Dim Rng As Range, Rn As Range
- On Error Resume Next
- Set sh = Sheets("報價履歷")
- If sh Is Nothing Then '如果沒"報價履歷"工作表則新建一個
- Set sh = Worksheets.Add
- sh.Name = "報價履歷"
- End If
- With sh
-
- Sheets("GFF-ITO").Range("O3:P5").Copy .Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 2)
- Set Rng = .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 2)
- With Rng
- Sheets("GFF-ITO").Range("b9:d9").Copy Rng
- .HorizontalAlignment = xlCenter
- .MergeCells = False
- Sheets("GFF-ITO").Range("G9,J9,K9,L9").Copy .Offset(, 1)
- Sheets("GFF-ITO").Range("V9").Copy .Offset(, 5)
- Sheets("GFF-ITO").Range("O9,P9").Copy .Offset(, 6)
- Sheets("GFF-ITO").Range("P9").Copy .Offset(, 8)
- .Offset(, 8) = "價差"
- End With
- For Each Rn In Sheets("GFF-ITO").Range("D10:D60")
- aa = Rn
- If Rn = "###" Then Exit Sub
- If Sheets("GFF-ITO").Cells(Rn.Row, "O") <> Sheets("GFF-ITO").Cells(Rn.Row, "P") Then
- sro = .Cells(Rows.Count, 1).End(xlUp).Row + 1
- .Cells(sro, "A") = Rn.Value
- .Cells(sro, "b") = Sheets("GFF-ITO").Cells(Rn.Row, "G")
- .Cells(sro, "c") = Sheets("GFF-ITO").Cells(Rn.Row, "j")
- .Cells(sro, "d") = Sheets("GFF-ITO").Cells(Rn.Row, "k")
- .Cells(sro, "e") = Sheets("GFF-ITO").Cells(Rn.Row, "l")
- .Cells(sro, "f") = Sheets("GFF-ITO").Cells(Rn.Row, "v")
- .Cells(sro, "g") = Sheets("GFF-ITO").Cells(Rn.Row, "o")
- .Cells(sro, "h") = Sheets("GFF-ITO").Cells(Rn.Row, "p")
- .Cells(sro, "i") = .Cells(sro, "h") - .Cells(sro, "g")
- End If
- Next
- End With
- End Sub
|
|
發表於 2015-9-23 19:26
| 
