複製並粘貼行並循環，直到空白

-5

我有一個報價表，我需要複製到主文件。但我遇到了一些麻煩編碼下面，頭信息是在「工作表Sheet1」，小區I5，I6，I7，I8，I9，K5，K11和K12，然後我需要複製到「MySheet的工作」 A1： H1（所有工作表都在同一工作簿中）然後我需要從「Sheet1」行復制「B16：M16」（是第一行將始終有數據），然後過去到「MySheet」I1：T1，然後檢查「B17：M17」是否有數據，如果有則複製並粘貼到「Mysheet」I2：T2等，直到出現空白行。我還想循環瀏覽標題，如果數據存在於B17：M17中，則複製並粘貼回「Mysheet」A2：H2等等。複製並粘貼行並循環，直到空白

任何幫助表示讚賞問候脾氣暴躁的爸爸

來源

2017-03-10 Grumpy Dad

你的哪個任務的特定部分，你現在被困在？ – YowE3K

對不起，我需要問題的第二部分。從sheet1複製行B16等等， –

基於您的評論，你被卡住的問題的第二部分，該辦法從「Sheet1中」行「B16

複製：M16 「（在第一行，將始終有數據），然後過去」MySheet的工作「 I1：T1

是：

Worksheets("Sheet1").Range("B16:M16").Copy Worksheets("MySheet").Range("I1:T1")

，或者可能在一個循環：

Dim r As Long 
r = 16 
Do While Not IsEmpty(Worksheets("Sheet1").Range("B" & r)) 
    Worksheets("Sheet1").Range("B" & r & ":M" & r).Copy Worksheets("MySheet").Range("I" & (r - 15) & ":T" & (r - 15)) 
    r = r + 1 
Loop

來源

2017-03-11 07:13:03 YowE3K

感謝YowE3K的幫助。這工作很好，一直在學習。壞脾氣的爸爸 –

複製並粘貼行並循環，直到空白

回答

相關問題