小编Ash*_*hok的帖子

我想从工作簿中获取包含多个工作表的数据,并且不知道哪个工作表有数据.因此,需要检查工作簿的每个工作表的已用行数,并激活包含用于获取数据的最大已用行的工作表.使用以下代码的结构和任何建议将不胜感激.

Sub Maxdatasheet()
Dim wscount As Integer
Dim myArray() As Variant

wscount = ActiveWorkbook.Worksheets.Count

  For i = 1 To wscount
    myArray(i) = Worksheets(i).UsedRange.Rows.Count
    Next
    'need to activate the maximus rows of the sheet
End Sub

嗨,我正在编写一个代码,用于根据标准对数据求和.下面的代码工作正常,但它没有返回值.代码就像这样在excel上工作(= SUMIF($B$1:$DC$1,p,B2:DD2).原因是标准P需要双引号.如何添加双引号P,任何建议将不胜感激

Sub ashok()
 Dim LR As Long
 Dim Rg, Rg1 As Range

                ActiveSheet.Range("a1").Select
                LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
                ActiveCell.Columns("A:A").EntireColumn.Select
                Selection.NumberFormat = "0"
                ActiveSheet.Range("a1").Select
                Set Rg = Range("b1", ActiveSheet.Range("A1").End(xlToRight))
                Set Rg1 = Range("b2", ActiveSheet.Range("A2").End(xlToRight))
                Range("a1").End(xlToRight).Select

                With ActiveCell.Offset(1, 1).Resize(LR)
                .Formula = "= SumIf(" & Rg.Address(True, True) & "," & "P" & "," & Rg1.Address(False, False) & ")"
                End With
 End Sub