Excel VBA 从一个工作表中复制范围并将其一次一个单元格地粘贴到另一张工作表中

Question

I'm trying to copy a range of data from one sheet and paste it, one cell at a time, in another sheet.

Let's say Sheet1 has the data in range A1 to C5. A1 till last row needs to be copied and pasted in Sheet2 but one cell at a time starting from first not empty cell in column A till last copied data. Is this possible?

The reason why this has to be done one cell at a time is because for every updated cell a small.txt file with the new value for this cell will be created. This file is then used to sync data across multiple excel files.

Thanks in advance

Answer 1

I wouldn't use the copy/paste functionality because it is much slower than directly assigning a cell's value to another cell.

Try something like this:

Dim sourceWorksheet As Worksheet
Dim destinationWorksheet As Worksheet
Dim rangeToTransfer As Range

Set sourceWorksheet = myWorkbook.Worksheets("<name of source worksheet>")
Set destinationWorksheet = myWorkbook.Worksheets("<name of destination worksheet>")
Set rangeToTransfer = sourceWorksheet.Range("A1:C5")

Dim lastUsedRow As Integer
Dim rowIndex As Integer
Dim columnIndex As Integer

lastUsedRow = destinationWorksheet.Cells(destinationWorksheet.Rows.Count, 1).END(xlUp).row

For rowIndex = 1 To rangeToTransfer.Rows.Count
   For columnIndex = 1 To rangeToTransfer.Columns.Count
      destinationWorksheet.Cells(lastUsedRow + rowIndex, columnIndex).Value2 = rangeToTransfer.Cells(rowIndex, columnIndex).Value2      
   Next   
Next

I am making an assumption here:

• You know the exact range you are trying to copy - A1:C5

But I hope this points you in the right direction!