- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 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
|
|
發表於 2010-8-12 10:19
| 