我在EXCEL裡Sheet1設了8個CHECKBOX ，Sheet2有8個人的資料
還有一個按鈕，按下去後會自動複製有勾選的人的資料到Sheet1
可是就卡在檢查那關，程式如下
Private Sub CommandButton1_Click()
Dim x, y, z, a As String
Dim i, j As Integer
Sheet1.Range("A2:C9").Value = "" '清空資料處
j = 2
For i = 1 To 8
If ("CheckBox" & i) = True Then
x = Sheet2.Cells(i + 1, 1).Value 這幾行是複製資料
Sheet1.Cells(j, 1).Value = x
y = Sheet2.Cells(i + 1, 2).Value
Sheet1.Cells(j, 2).Value = y
z = Sheet2.Cells(i + 1, 3).Value
Sheet1.Cells(j, 3).Value = z
j = j + 1
End If
Next
End Sub
