- 帖子
- 13
- 主題
- 1
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- W10
- 軟體版本
- 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2022-5-28
- 最後登錄
- 2022-6-1
|
4#
發表於 2022-5-29 09:12
| 只看該作者
寫出了另一個可以導入的
結果變成了B欄被跳過了...悲劇...
Sub test()
工作表1.Activate
Set i = 工作表1.Range("C5:C58")
For j = 2 To 7
Range("B3 58").ClearContents
Sheets(j).Range("B358").Copy Destination:=[b3]
工作表7.Cells(4, j) = [c3]
工作表7.Cells(5, j) = [c5]
工作表7.Cells(6, j) = [c6]
工作表7.Cells(7, j) = [c7]
工作表7.Cells(8, j) = [c8]
工作表7.Cells(9, j) = [c9]
工作表7.Cells(10, j) = [c10]
工作表7.Cells(11, j) = [c11]
工作表7.Cells(12, j) = [c12]
工作表7.Cells(13, j) = [c13]
工作表7.Cells(14, j) = [c14]
工作表7.Cells(15, j) = [c15]
工作表7.Cells(16, j) = [c16]
工作表7.Cells(17, j) = [c17]
工作表7.Cells(18, j) = [c18]
工作表7.Cells(19, j) = [c19]
工作表7.Cells(20, j) = [c20]
工作表7.Cells(21, j) = [c21]
工作表7.Cells(22, j) = [c22]
工作表7.Cells(23, j) = [c23]
工作表7.Cells(24, j) = [c24]
工作表7.Cells(25, j) = [c25]
工作表7.Cells(26, j) = [c26]
工作表7.Cells(27, j) = [c27]
工作表7.Cells(28, j) = [c28]
工作表7.Cells(29, j) = [c29]
工作表7.Cells(30, j) = [c30]
工作表7.Cells(31, j) = [c31]
工作表7.Cells(32, j) = [c32]
工作表7.Cells(33, j) = [c33]
工作表7.Cells(34, j) = [c34]
工作表7.Cells(35, j) = [c35]
工作表7.Cells(36, j) = [c36]
工作表7.Cells(37, j) = [c37]
工作表7.Cells(38, j) = [c38]
工作表7.Cells(39, j) = [c39]
工作表7.Cells(40, j) = [c40]
工作表7.Cells(41, j) = [c41]
工作表7.Cells(42, j) = [c42]
工作表7.Cells(43, j) = [c43]
工作表7.Cells(44, j) = [c44]
工作表7.Cells(45, j) = [c45]
工作表7.Cells(46, j) = [c46]
工作表7.Cells(47, j) = [c47]
工作表7.Cells(48, j) = [c48]
工作表7.Cells(49, j) = [c49]
工作表7.Cells(50, j) = [c50]
工作表7.Cells(51, j) = [c51]
工作表7.Cells(52, j) = [c52]
工作表7.Cells(53, j) = [c53]
工作表7.Cells(54, j) = [c54]
工作表7.Cells(55, j) = [c55]
工作表7.Cells(56, j) = [c56]
工作表7.Cells(57, j) = [c57]
工作表7.Cells(58, j) = [c58]
Next
工作表7.Activate
'Columns("B:B").Delete
End Sub |
|
