Excel VBA – 如果行数包含文本，则在单元格中input特定的文本

我正在尝试计算如何计算其中有文本的单元格的数量，然后根据具有文本的单元格的总数，在其他单元格中粘贴某些文本。

即如果单元格A1：A3包含文本，则在单元格B1中input“3×1”并在单元格B2中input“3×2”。

同样，如果单元格A1：A4包含文本，则在单元格B1中input“4×1”并在单元格B2中input“4×2”。

UPDATE1：

让我试着再举一个例子，因为数字在编码方面让人困惑:)如果单元格A1：A3有文本，请计算它，然后根据有多less单元格有文本，在B2和B3中input下面的单元格B2中的“三”和B3中的文字“四”，B2中的文字=“五”，B3中的文字“六”

包括上面，我想添加一个是忽略任何单元格的东西，如果有的话，不要包括它在计数，可以说数字242

Answer 1

请查看您的要求的解决scheme

Sub test1() Dim wb As Workbook Dim rng As Range Dim LastRow As Long Dim ws As Worksheet Set wb = ThisWorkbook Set ws = wb.Worksheets("Sheet1") With ws LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row End With ws.Range("B1").Value = """" & LastRow & "X1""" ws.Range("B2").Value = """" & LastRow & "X2""" End Sub 

Answer 2

像这样的例子。

 Sub Testing() LastRow = Range("A" & Rows.Count).End(xlUp).Row` For i = 1 to LastRow If Worksheets(ActiveSheet.Name).Cells(j, i) = "Pass" Then Worksheets(ActiveSheet.Name).Cells(k, i).Value = "Pass" End If Next i