sin.Range(Cells(i, 4), Cells(j, 4)).Copy ThisWorkbook.Sheets("35").Range("C3")
sin是另一個作業簿一個作業表，想把sin的range范圍復制到當前作業簿的一個作業表，總是不成功
不是說應用程式錯誤，就是屬性值錯誤
完整的在下面
Option Explicit
Sub demo()
Debug.Print Range("A1").End(xlDown).Row
Dim ws As Workbook, sin As Worksheet, i As Integer, j As Integer, k As Integer, gol As Worksheet
k = 1
Set ws = Workbooks.Open(Filename:="E:\案例vba\問題\資料.xls")
Set gol = ThisWorkbook.Worksheets("35")
For Each sin In ws.Sheets
i = sin.Range("D1").End(xlDown).Row
j = sin.Range("D65536").End(xlUp).Row
sin.Range(Cells(i, 4), Cells(j, 4)).Copy ThisWorkbook.Sheets("35").Range("C3")
k = k + 1
Next sin
End Sub
uj5u.com熱心網友回復：
把“sin.Range(Cells(i, 4), Cells(j, 4)).Copy ThisWorkbook.Sheets("35").Range("C3")”這句修改一下修改為
sin.Range(sin.Cells(i, 4), sin.Cells(j, 4)).Copy ThisWorkbook.Sheets("35").Range("C3")
應該就過了
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/28664.html
標籤：VBA
上一篇：【求助】如何用VBA讀取檔案特定的一列，如果存在空值就洗掉該檔案
下一篇：wpa vba插件