EXCEL表格编程求解

发布网友发布时间：2022-05-06 03:29

我来回答

共5个回答

热心网友时间：2022-06-28 14:28

在B1输入：
=countif(C$1:C$6,A1)>0
公式向下填充即可。

热心网友时间：2022-06-28 14:28

b1 =IF(ISERROR(MATCH(A1,$C$1:$C$6,0)),FALSE,TRUE)
下拉追问非常感谢，如果c栏在sheet2中如何编程？以及如何让a栏在输入内容为空时，b栏也显示空（既不显示ture也不显示fase)

追答b1 =IF(A1="","",IF(ISERROR(MATCH(A1,Sheet2!$C$1:$C$6,0)),FALSE,TRUE))

热心网友时间：2022-06-28 14:29

=if(a1="","",not(isna(match(a1,sheet2!c:c,0))))
或
=if(a1="","",countif(sheet2!c:c,a1)>0)
然后下拉填充

热心网友时间：2022-06-28 14:29

在B1做公式 =COUNTIF(C$1：C$100)=1，把公式向下填充至全列。

热心网友时间：2022-06-28 14:30

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
i = 1
Do Until Cells(i, 1) = ""
For j = 1 To 6
Cells(i, 2) = False
If Cells(i, 1) = Cells(j, 3) Then
Cells(i, 2) = True
Exit For
End If
Next j
i = i + 1
Loop
End Sub