Excel VBA - 如果行数包含文本，则在单元格中输入特定文本

Question

我试图找出如何计算其中包含文本的单元格的数量，然后根据具有文本的单元格的总数，粘贴其他单元格中的某些文本。

即如果单元格A1：A3包含文本，则在单元格B1中输入“3x1”并在单元格B2中输入“3x2”。

同样，如果单元格A1：A4包含文本，则在单元格B1中输入“4x1”并在单元格B2中输入“4x2”。

UPDATE1：

让我试着给出另一个例子，因为数字在编码时会让人感到困惑:) IF单元格A1：A3有文本，计算它然后根据有多少单元格有文本，在B2和B3 2单元格中输入文字= B2中的“三”和B3 3中的文本“四”，B2中的文本=“五”，B3中的文本“六”

包括上面，我想添加一个更多的东西，即忽略任何单元格，如果有的话，不要在计数中包含它，让我们说数字242

Answer 1

请根据您的要求查看解决方案

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