12,673
回編集
差分
ナビゲーションに移動
検索に移動
preRow pre[[R]]ow = r
編集の要約なし
======
Cells(r, c).EntireRowEntire[[R]]ow.Hidden
===オートフィルタ済みで見えている行のみで上の行と重複があれば"1"を設定する例===
Sub DuplicateRowCheck_ClickDuplicate[[R]]owCheck_Click() Const START_ROW STA[[R]]T_[[R]]OW As Integer = 4 Const TARGET_COL TA[[R]]GET_COL As Integer = 5 Const RESULT_COL [[R]]ESULT_COL As Integer = 6
Dim r As Long
Dim temp As String
Dim pre As String
Dim preRow pre[[R]]ow As Long
r = START_ROWSTA[[R]]T_[[R]]OW
Do
s = Cells(r, TARGET_COLTA[[R]]GET_COL).Text If Not Cells(r, TARGET_COLTA[[R]]GET_COL).EntireRowEntire[[R]]ow.Hidden Then
temp = s
If pre = temp Then
Cells(preRowpre[[R]]ow, RESULT_COL[[R]]ESULT_COL).Value = "1" Cells(r, RESULT_COL[[R]]ESULT_COL).Value = "1"
End If
pre = temp
Else
Cells(r, RESULT_COL[[R]]ESULT_COL).Value = ""
End If
r = r + 1
© 2006 矢木浩人
