复制粘贴一个单一的值多次到另一个表

我有一个列“ID”，从Sheet1中的列C3开始，其中所有的id列在每个唯一的ID之间的间隔为4个空白单元格，如下所示

我想复制这个ID并粘贴到Sheet2五次，如下所示

任何人都可以build议我怎样才能得到这个自动化的帮助下的VBA

Answer 1

把这个公式放在Sheet2！B2中，

=vlookup("zzzz", sheet1!C$3:C3, 1) 

根据需要填写。

Answer 2

试试这个：

 Sub copyCell() Dim idColumn As String Dim startRow, lastRow, row As Integer Dim sht1, sht2 As Worksheet Set sht1 = Worksheets("Sheet1") 'Setting sheet1 Set sht2 = Worksheets("Sheet2") 'Setting sheet1 idColumn = "C" 'Setting column id value column startRow = 1 'Setting the start row from sheet 1 'Getting the last used row from sheet 1 lastRow = sht1.Cells(sht1.Rows.Count, rowColumn).End(xlUp).row For row = startRow To lastRow Step 1 'Check Id Value is empty or not If sht1.Range(idColumn & row) <> "" Then 'If not empty, set value sht2.Range(idColumn & row) = sht1.Range(idColumn & row) Else 'If empty, set value from previous row of sheet 2 sht2.Range(idColumn & row) = sht2.Range(idColumn & (row - 1)) End If Next row End Sub 

我已经用您的示例数据testing了我的代码。 这对我来说很有用。

我相信这会对你有所帮助。