[發問] for循環簡化，請幫忙

一、請問怎麼簡化
二、為何都只有錄入Cells(51, n)?
Y = Sheets("成交客戶").Range("b65536").End(xlUp).Row
With Sheets("成交客戶")
.Range("a" & Y + 1) = Sheets("日報表輸入").Range("e2").Value '日期
   For n = 3 To 7
      .Cells(Y + 1, n - 1) = Sheets("日報表輸入").Cells(41, n).Value
   If Sheets("日報表輸入").Cells(42, n).Value <> "" Then
         .Cells(Y + 1, n - 1) = Sheets("日報表輸入").Cells(42, n).Value
            End If
   If Sheets("日報表輸入").Cells(43, n).Value <> "" Then
         .Cells(Y + 1, n - 1) = Sheets("日報表輸入").Cells(43, n).Value
            End If
               Next n
   If Sheets("日報表輸入").Cells(44, n).Value <> "" Then
         .Cells(Y + 1, n - 1) = Sheets("日報表輸入").Cells(44, n).Value
            End If
   If Sheets("日報表輸入").Cells(45, n).Value <> "" Then
         .Cells(Y + 1, n - 1) = Sheets("日報表輸入").Cells(45, n).Value
            End If
   If Sheets("日報表輸入").Cells(46, n).Value <> "" Then
         .Cells(Y + 1, n - 1) = Sheets("日報表輸入").Cells(46, n).Value
            End If
               Next n
   If Sheets("日報表輸入").Cells(47, n).Value <> "" Then
         .Cells(Y + 1, n - 1) = Sheets("日報表輸入").Cells(47, n).Value
            End If
   If Sheets("日報表輸入").Cells(48, n).Value <> "" Then
         .Cells(Y + 1, n - 1) = Sheets("日報表輸入").Cells(48, n).Value
            End If
   If Sheets("日報表輸入").Cells(49, n).Value <> "" Then
         .Cells(Y + 1, n - 1) = Sheets("日報表輸入").Cells(49, n).Value
            End If
               Next n
   If Sheets("日報表輸入").Cells(50, n).Value <> "" Then
         .Cells(Y + 1, n - 1) = Sheets("日報表輸入").Cells(50, n).Value
            End If
   If Sheets("日報表輸入").Cells(51, n).Value <> "" Then
         .Cells(Y + 1, n - 1) = Sheets("日報表輸入").Cells(51, n).Value
            End If
               Next n

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-8-12 10:19 | 只看該作者

回復 1# olisun
Y = Sheets("成交客戶").Range("b65536").End(xlUp).Row
With Sheets("成交客戶")
.Range("a" Y + 1) = Sheets("日報表輸入").Range("e2").Value '日期語法錯誤
.Range("a" &Y + 1) = Sheets("日報表輸入").Range("e2").Value '日期正確

''''''''''''''''''''
Y是 b欄最後有資料的列號帶入A欄 -> .Range("a" &Y + 1) 這樣是你的用意嗎
簡化如下

With Sheets("成交客戶")
y = .Range("b65536").End(xlUp).Row
.Range("a" & y + 1) = Sheets("日報表輸入").Range("e2").Value '日期
For n = 3 To 7
.Cells(y + 1, n - 1) = Sheets("日報表輸入").Cells(41, n).Value
For i = 42 To 51
If Sheets("日報表輸入").Cells(i, n).Value <> "" Then
.Cells(y + 1, n - 1) = Sheets("日報表輸入").Cells(i, n).Value
End If
Next i
Next n
End With

複製代碼

TOP

olisun

中學生 Rank: 2

帖子: 65
主題: 15
精華: 0
積分: 87
點名: 1
作業系統: WINDOWS10
軟體版本: 2019
閱讀權限: 20
性別: 男
註冊時間: 2010-7-26
最後登錄: 2024-1-31

3^#

發表於 2010-8-12 10:47 | 只看該作者

運行結果
一、For n = 3 To 7 3這一個沒有顯示資料
二、For i = 42 To 51 只有第51這個
三、我希望是如果 Sheets("日報表輸入")的b42:b51都有數據則把b42:g51的數據都填入到Sheets("成交客戶")a:f(從a2開始)，如果只有b42:b44有數據，則把b42:g44數據填入。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-8-12 11:04 | 只看該作者

回復 3# olisun
你只附上一段程式碼你的解釋要用猜測的可以附檔說明嗎?

TOP