[英]copy paste one single value multiple times to another sheet
將此公式放在Sheet2!B2中,
=vlookup("zzzz", sheet1!C$3:C3, 1)
根據需要填寫。
試試這個:
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
我已經用您的示例數據測試了我的代碼。 這對我來說很有用。
相信會對您有所幫助。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.