Question

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

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

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

UPDATE1：

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

包括上面的内容，我想补充一点，就是忽略任何单元格，如果有的话，不要将它包含在计数中，让我们说数字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

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

2 个答案: