VBA - 如果列B中的单元格不是空白，则列A = 1

Question

这里是我的情况：

列A为空。 B列是客人的房间号码 C列是该房间中客人的姓名

我想要统计有多少房间被占用。所以我把计数公式，但结果是0。我不知道为什么..

下面是代码：

Sheets("Champagne").Select 
Range("B2").AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row) 
LastRow = Range("A2").End(xlDown).Row 
Cells(LastRow + 2, "A").Formula = "=SUM(A2:A" & LastRow & ")" 
LRowA = [A4200].End(xlUp).Address 
Range("A:A").Interior.ColorIndex = xlNone 
Range("A2:" & LRowA).Interior.ColorIndex = 33 
Range("A:A").HorizontalAlignment = xlCenter 

所以后来我试图把一个公式，如果B柱说作为任何数字（房间号），它将在列A中算作1。然后在列A末尾加上一个总和。

这是我试图放置的代码，但它将123456放入C栏。

Sheets("Champagne").Select 

For Each Cel In Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row) 
If Cel.Value <> "" Then Cel.Offset(1, 0).Value = "123456" 
Range("A2").AutoFill Destination:=Range("A2:A" & Cells(Rows.Count, 2).End(xlUp).Row) 
LastRow = Range("A2").End(xlDown).Row 
Next 

Range("B2").AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row) 
LastRow = Range("A2").End(xlDown).Row 
Cells(LastRow + 2, "A").Formula = "=SUM(A2:A" & LastRow & ")" 
LRowA = [A4200].End(xlUp).Address 
Range("A:A").Interior.ColorIndex = xlNone 
Range("A2:" & LRowA).Interior.ColorIndex = 33 
Range("A:A").HorizontalAlignment = xlCenter 

如果你有第一个代码的答案，我把它以及....

Answer 1

要统计有多少房（列B）被占用，我会用这样的代码：

Function CountOccupiedRooms(sheetname As String) As Long 
    Dim j As Long 
    dim c As Range 
    With Worksheets(sheetname) 
     'Check that some data exists 
     If IsEmpty(.Range("B2").Value) Then 
      CountOccupiedRooms = 0 
      Exit Function 
     End If 

     For Each c In .Range("B2", .Cells(.Rows.Count, "B").End(xlUp)) 
      If Application.WorksheetFunction.CountIf(.Range("B2:B" & c.Row), c.Value) = 1 Then 
       j = j + 1 
      End If 
     Next 
    End With 
    CountOccupiedRooms = j 
End Function 

，然后，假设你希望把这个数字在单元格中的某个地方，该代码可以在你的主代码称为

Worksheets("Summary").Range("C5").Value = CountOccupiedRooms("Champagne") 
Worksheets("Summary").Range("C6").Value = CountOccupiedRooms("ChocoStrawb") 

目标工作表的名称（“摘要”）和地点（“C5”和“C6” ）只是出于说明的目的 - 你可以使用任何你喜欢的东西。