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