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