range離奇問題

不好意思，想問一個很離奇的問題
就是指定這個對象時
Range("A" & i * 100 + 88 & ":l100")
所呈現的範圍卻是
$A$100:$L$188

但指定這個對象
Range("A" & i * 100 + 88 & ":l1000")
所呈現的範圍又是
$A$188:$L$1000

請問問題出在哪裡？

樓主熱帖

HSINLI

小學生 Rank: 1

帖子: 13
主題: 4
精華: 0
積分: 17
點名: 0
作業系統: mac
軟體版本: os10
閱讀權限: 10
註冊時間: 2015-6-16
最後登錄: 2015-8-10

2^#

發表於 2015-7-4 14:05 | 顯示全部帖子

喔喔！了解了！
所以說excel會自動將數字小得換到前方，但是所選取的範圍一樣沒有變更
是這樣嗎？？

TOP

HSINLI

小學生 Rank: 1

帖子: 13
主題: 4
精華: 0
積分: 17
點名: 0
作業系統: mac
軟體版本: os10
閱讀權限: 10
註冊時間: 2015-6-16
最後登錄: 2015-8-10

3^#

發表於 2015-7-4 15:28 | 顯示全部帖子

不好意思，想要再詢問一下
range這樣的寫法出了什麼問題嗎？
Range("a" & i - 1 * 100 + 88 & ":l " & i * 100 + 88).Copy j
為什麼每次執行的時候都出現1004錯誤

整組code見附件，主要是要用vba叫ie，複製貼上其內容至excel
(會這樣操作是因為該網址無法用querytable下載）

Sub 擷取yahoofinanceetf()
Dim j As Range
Dim i As Integer
Dim url As String
Cells.Clear
Application.ScreenUpdating = False
Set ie = CreateObject("internetexplorer.application")
For i = 1 To 16 '欲複製下載的網頁頁數有16頁
With ie
.Visible = False
.Navigate "http://finance.yahoo.com/etf/lists/?mod_id=mediaquotesetf&tab=tab4&scol=avgcap&stype=desc&rcnt=100&page=" & i
Do While .ReadyState <> 4
DoEvents
Loop
.ExecWB 17, 2
.ExecWB 12, 2
End With
If i = 1 Then '如果是第一頁的話從A1開始貼
Range("A1").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Range("a87:l187").Copy Range("a1") '因為是全頁複製故只將所需的表格複製貼上到指定位置
Range("a102:l302").Clear '除以上所需外之後的內容清除
Else '如果是第二頁之後的內容
Set j = Cells(Rows.Count, "a").End(xlUp).Offset(1) '將range J指定在使用過儲存格的下一個空白儲存格
j.Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Range("a" & i - 1 * 100 + 88 & ":l " & i * 100 + 88).Copy j '將所需的資料貼至range j
j.EntireRow.Delete '將那一行整行刪除，因為是標題列，前面已有同樣內容
Range("a" & i * 100 + 2 & ":l65536").Clear '除所需部份，其餘內容清除
Set j = Nothing '清除j的賦值，下次循環再重新定義新的range j
End If
Next i
ie.Quit
End Sub