小编Pat*_*son的帖子

我是学习VBA的新手,并且想知道是否有人可以帮助我使用我需要的代码来计算我在其中包含数据的总行数.我希望能够在具有不同数据行数量的多个工作表上使用它.

更具体地说,我无法弄清楚将计算A1-A100或A1-A300的行数的通用代码.

现在我试图使用这样的东西,但它不起作用.

i = ActiveWorkbook.Worksheets("Sheet1").Range("A2 , Range("A2").End(xlDown)).Rows.Count

请帮忙!

谢谢

目前我正在尝试在VBA中缩放图片,但似乎无法得到我需要的东西.每次我跑......

ActiveSheet.Pictures.Insert("C:\\\Logo.bmp").Select
            With Selection
                  .ShapeRange.ScaleWidth 1.4, msoTrue
                  .ShapeRange.ScaleHeight 0.5, msoFalse
             End With 

它最初将缩放到正确的宽度,但是当我转到下一行并尝试缩放高度时,它会改变宽度.有人可以帮助我理解为什么会发生这种情况,并建议一种更好的缩放图片的方法.我需要它长约125%,高度减少约50%.

非常感谢.