URCHEN

小弟來獻醜一下，還請各位大大指教...

1. 工作表上新增一個 CommandButton1，命名為"更新"
2. 在 CommandButton1_Click 內輸入以下內容：

Option Explicit
Private Sub CommandButton1_Click()
Dim SH1W As Worksheet
Dim Ra1 As Range
Dim X, Y

Set SH1W = Sheets("工作表1")
Set Ra1 = SH1W.Range("B2:B" & [B65536].End(xlUp).Row)

X = Ra1.Offset(1, 0).Resize(1, 1).Value

SH1W.Range("C3:O14").ClearContents

For Each X In Range("B3:B14")
  For Each Y In Range("C2:O2")
    If X = Y Then
      Y.Offset(X.Row - 2, Y.Row - 2).Resize(1, 1).Select
      Selection = "1"
    End If
  Next Y
Next X

End Sub

小弟也是剛學VBA沒多久，如果有錯，還請各位大大包涵~

URCHEN

感謝准堤大的解說，我也看懂了~