2016【韓劇】奶酪陷阱劇情簡介及人物介紹奶酪陷阱 EP03 預告奶酪陷阱 線上看奶酪陷阱(捕鼠器裡的奶酪) 第1集

請高手幫我看看excel vba為什麼錯誤??感恩.
請高手幫我看看excel vba為什麼錯誤??感恩.
請高手幫我看看excel vba為什麼錯誤??感恩.

Sub 輸入()

Dim intRowIndex As Integer
Dim intColIndex As Integer
Dim i As Integer
Dim j As Integer
Dim strStkCodeList As String

intRowIndex = 25000
intColIndex = 39
'Sheet1.GetStkWatchList ("")
Sheet1.Range("B3:AM" & CStr(intRowIndex)).Cells.Clear
For i = 3 To intRowIndex
If Trim(Sheet1.Cells(i, 1)) "" Then
For j = 2 To intColIndex
'Sheet4.Cells(i, j) = CStr("=EWinner|RQ!" & CStr(Sheet4.Cells(i, 1)) & "." & CStr(Sheet4.Cells(1, j)))
'strStkCodeList = CStr("=EWinner|RQ!'" & CStr(Sheet4.Cells(i, 1)) & "." & CStr(Sheet4.Cells(1, j))) & "'" '=XQFAP|Quote!'3008.TW-Name'
'Sheet1.Cells(i, j).Value = ""

strStkCodeList = CStr("=XQFAP|Quote!" & CStr(Sheet1.Cells(i, 1)) & "." & CStr(Sheet1.Cells(1, j))) & "'" '=XQFAP|Quote!'3008.TW-Name'
Sheet1.Cells(i, j).Value = ""
Sheet1.Cells(i, j).Value = strStkCodeList

Next j
Else
Exit For
End If
Next i

End Sub

This entry passed through the Full-Text RSS service - if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers.
Want something else to read? How about 'Grievous Censorship' By The Guardian: Israel, Gaza And The Termination Of Nafeez Ahmed's Blog