vba

<pre name="code" class="vb">Sub hong()
  
Dim book1 As Workbook
Set book1 = Application.ActiveWorkbook
Dim sheet As Worksheet
Dim a As String
  
Set sheet = book1.Sheets("Sheet1")
  
Dim count As Double
count = 0
  
Dim id As Integer
id = 11
For i = 2 To 203776
         If sheet.Cells(i, 6) = id Then
           count = count + sheet.Cells(i, 15)
         End If
         
    
  'sheet.Cells(i, 35) = sheet.Cells(i, 24) / sheet.Cells(i, 12)'
       
     
Next i

  
For i = 2 To 203776
         If sheet.Cells(i, 6) = id Then
           sheet.Cells(i, 35) = sheet.Cells(i, 15) / count
         End If
         
    
  'sheet.Cells(i, 35) = sheet.Cells(i, 24) / sheet.Cells(i, 12)'
       
     
Next i
  
End Sub

Sub hong()Dim book1 As WorkbookSet book1 = Application.ActiveWorkbookDim sheet As WorksheetDim a As StringSet sheet = book1.Sheets("Sheet1")For i = 1 To 74 For j = 1 To 304 If sheet.Cells(i, 1) = sheet.Cells(j, 3) Then sheet.Cells(i, 1).Font.Color = RGB(256, 0, 0) sheet.Cells(j, 3).Font.Color = RGB(256, 0, 0) End If Next jNext iEnd Sub

Sub hong()
  
Dim book1 As Workbook
Set book1 = Application.ActiveWorkbook
Dim sheet As Worksheet
Dim a As String
  
Set sheet = book1.Sheets(1)
  Dim count As Integer
   count = 0
For i = 1 To 74
   Dim flag As Boolean
   flag = False
   
   For j = 1 To 304
      If sheet.Cells(i, 1) = sheet.Cells(j, 2) Then
        flag = True
         sheet.Cells(i, 1).Font.Color = RGB(256, 0, 0)
         sheet.Cells(j, 2).Font.Color = RGB(256, 0, 0)
      End If
   Next j
   If flag = True Then
      count = count + 1
   End If
Next i
   sheet.Cells(3, 3) = count
End Sub