台灣最大程式設計社群網站
線上人數
777
 
會員總數:242479
討論主題:187518
歡迎您免費加入會員
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
Loop的問題
價值 : 5 QP  點閱數:288 回應數:1

樓主

pi4da4
門外漢
0 1
4 0
發送站內信

'
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'
If Range("B1") > 0 Then
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Range("F1").Select
ActiveSheet.Paste
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If

If Range("B2") > 0 Then
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Range("F1").Select
ActiveSheet.Paste
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If

If Range("B3") > 0 Then
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Range("F1").Select
ActiveSheet.Paste
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If

If Range("B4") > 0 Then
Range("B4").Select
Application.CutCopyMode = False
Selection.Copy
Range("F1").Select
ActiveSheet.Paste
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If

If Range("B5") > 0 Then
Range("B5").Select
Application.CutCopyMode = False
Selection.Copy
Range("F1").Select
ActiveSheet.Paste
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End If
End Sub

我希望B與C欄位可以逐次+1循環下去,"F1"及"D1"維持固定不變
假設到儲存格B999開始是空白的,再把這個循環停止,有辦法用變數或loop的方式把她解決嗎??
然後如果之後B1500才開始出現空白可以繼續使用這個程式碼

謝謝~拜託了

搜尋相關Tags的文章: [ loop ] ,
本篇文章發表於2017-12-09 06:52
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

CJW
檢舉此回應
樓主您好:
以下程式碼供參:
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Y = ActiveSheet.Cells(Rows.Count, "B").End(3).Row
For J = 1 To Y
If Range("B" & J) <> "" And Range("B" & J) > 0 Then
Range("B" & J).Select
Application.CutCopyMode = False
Selection.Copy
Range("F1").Select
ActiveSheet.Paste
Range("D1").Select
Application.CutCopyMode = False
Selection.Copy
Range("C" & J).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
本篇文章回覆於2017-12-27 09:41
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.