每按一次按钮可以将G11里的数据依次复制到G17，H17,I17依次。求

sub aaa()
x = [G11]
for j = 7 to 9
cells(17,i) = x
next j
end sub

第三行H17改成h17:i17

Sub aaa()
If Range("g17") = "" Then
Range("g17") = Range("g11")
ElseIf Range("h17") = "" Then
Range("h17") = Range("g11")
ElseIf Range("i17") = "" Then
Range("i17") = Range("g11")
Else
Range("g17:i17") = ""
'Range("g17") = Range("g11")
End If
End Sub

这种看似简单的代码其实也不好写，主要是你规则不全，反而不好精确定义代码：
1、从g11依次复制到g17\h17\i17，那么接下来又该复制到哪里呢？
2、适应性好的代码需要一套严密的规则，从g11到g17\h17\i17,看似有规律，但规则并不完整，有很多变数，这就导致写代码需要很多猜测，实用性不高；