我的問題分為兩部分:
第1部分:
我有兩個工作表。在一個名為“設備詳細信息”的工作表中,我在 A 列的第 13 到 1000 行中有一組值。我想將這些值中的每一個,即 A13、A14、A15 等複製到另一個名為“工作表(2 )”從單元格 A2 開始。但是,訣竅是需要將第一個工作表中的 A13 複製到第二個工作表的 A2、A14 到 A8、A15 到 A14 中,每次以 6 為增量複製。
這部分是較早整理的。
第2部分:
從“設備詳細信息”複製到“工作表(2)”的新值現在需要將它們的值複製到接下來的 6 行,依此類推。例如,“工作表(2)”中單元格A2 中的值需要向下複製到A3 到A8 行。然後從第 1 部分中的“設備詳細信息”複製過來的 A9 中的下一個值需要從 A10 向下複製到 A15,依此類推。這是我的代碼,它在從 A3 行複製到 A8 時運行良好,但隨後它不會跳轉到 A10 行,而是繼續覆蓋 A3 行到 A8 行中的值。
Sub CopyDataInBetweenCells()
Dim wb As Workbook
Set wb = ThisWorkbook
Dim destws As Worksheet
Set destws = wb.Worksheets("Worksheet (2)")
Dim RowNo2 As Long
Dim RowNo3 As Long
For RowNo2 = 1 To 2000
For RowNo3 = 1 To 6
destws.Cells(RowNo2 * 7 - 5, 1).Copy Destination:=destws.Cells(RowNo3 * 1 + 2, 1)
Next RowNo3
Next RowNo2
End Sub
計算目標範圍:
Sub CopyData2()
Dim wb As Workbook
Set wb = ThisWorkbook
Dim srcws As Worksheet
Set srcws = wb.Worksheets("Equipment details")
Dim destws As Worksheet
Set destws = wb.Worksheets("Worksheet (2)")
Dim RowNo As Long
For RowNo = 0 To 987
srcws.Range("A" & RowNo + 13).Copy Destination:=destws.Range("A" & RowNo * 7 + 2 & ":A" & RowNo * 7 + 8)
Next RowNo
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句