Question

如图，在excel中，怎么写vba代码，使开奖数据表中的数据自动填充到历史验证相应位置中去





Answer 1

很简单，效率低点的用循环赋值，要不用数组倒腾。

追问

哦哦那能帮我写下代码吗

Answer 2

你是一期一更新，还是任意期更新？就是说只要找不到对应的开奖期，就会跟新进去？

追问

你问的是开奖数据的更新吗，应该是任意期更新吧

能帮我写下代码吗

追答

Sub 数据更新()
Dim i!, j!, rg1 As Range, rg2 As Range
i = Sheets("开奖数据").Range("a3").End(xlDown).Row
j = Sheets("历史验证").Range("a4").End(xlDown).Row
For Each rg1 In Sheets("开奖数据").Range("a3:a" & i)
With Sheets("历史验证")
For Each rg2 In .Range("a2:a" & j + 1)
If rg2.Value = rg1.Value Then
If .Cells(rg2.Row, 2) = "" Then
.Range("b" & rg2.Row & ":g" & rg2.Row) _
= Sheets("开奖数据").Range("c" & rg1.Row & ":h" & rg1.Row).Value
End If
Exit For
End If
If rg2.Row = j + 1 Then
.Range("a" & j + 1) = Sheets("开奖数据").Cells(rg1.Row, rg1.Column)
.Range("b" & j + 1 & ":g" & j + 1) = Sheets("开奖数据").Range _
("c" & rg1.Row & ":h" & rg1.Row).Value
j = j + 1
End If
Next
End With
Next
End Sub