Копирование и вставка конкретных ячеек из одного листа в другой

Question

У меня есть таблица Sheet1 У меня есть строка с некоторыми значениями ячейки, как показано на рисунке 1. У меня возникла проблема с попыткой скопировать и вставить ячейки из одного листа в другой в excel , Как показано на рисунке ниже 1, у меня есть строка со значениями, и я хочу, чтобы скопировать клетки из Лист1 и вставить его на Лист2, как показано на рисунке 2.

Может кто-нибудь скажите, пожалуйста, как это сделать?

Answer 1

Для первой ячейки на Лист2, написать:

=Sheet1!A4 

Тогда две других следующим образом:

=Sheet1!D4 
=Sheet1!G4 

То есть, если вы хотите иметь то же значение, даже если вы обновляете на листе1. Если нет, возможно, вам нужен код vba? Создать новый модуль:

sub copy() 

dim sheet1 as Worksheet, sheet2 as Worksheet 

sheet1 = Worksheets("Sheet1") 
sheet2 = Worksheets("Sheet2") 
sheet2.Cells(1,"A").Value=sheet1.Cells(4,"A").Value 
sheet2.Cells(2,"A").Value=sheet1.Cells(4,"D").Value 
sheet2.Cells(3,"A").Value=sheet1.Cells(4,"G").Value 

end sub 

Answer 2

Попробуйте этот скрипт.

Sub CopyData1() 
Dim cell As Range, rw As Long 
rw = 2 
For Each cell In ActiveSheet.Range("A1:H20") 
If Not IsEmpty(cell) = True Then 
Worksheets("Sheet2").Cells(rw, 1).Value = cell.Value 
rw = rw + 1 
End If 
Next 
End Sub 

Я предполагаю, что у вас есть лист с именем «Sheet2». Если нет, просто переименуйте лист, на который вы хотите скопировать значения.