[已解决]求教定位单元格VBA代码

席可茵

定位到Sheet1工作表A列最后一个非空单元格下一单元格的代码如何编写

最佳答案

月排行榜 / 总排行榜

xdragon

2013-11-8 11:46

sheets("sheet1").range("A" & sheets("sheet1").cells(rows.count,1).end(3).row+1).select

跳转到最佳答案楼层

xdragon

sheets("sheet1").range("A" & sheets("sheet1").cells(rows.count,1).end(3).row+1).select

那么的帅

1. Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row.Select

复制代码

jio1ye

1. Sheet1.range("A"&sheet1.range("A1:A65533").end(xlup)+1).select

复制代码

席可茵

那么的帅 发表于 2013-11-8 12:21

出现提示：运行时错误“242”
                   要求对像

整个代码如下：

Sub 合并计算()
'
' 合并计算 Macro
'
    Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row.Select
    Selection.Consolidate Sources:="'月份 (10)'!C6:C10", _
    Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
    ActiveWindow.SmallScroll Down:=6
Ro = [a65536].End(xlUp).Row
Ro1 = [a65536].End(xlUp).End(xlUp).Row
    Range("D" & Ro).FormulaR1C1 = "=R3C"
    Range("D" & Ro1 & ":D" & Ro).FillUp
    Range("E" & Ro).FormulaR1C1 = "=VLOOKUP(RC[-4],单价!C[-3]:C[2],6,FALSE)"
    Range("E" & Ro1 & ":E" & Ro).FillUp
    Range("F" & Ro).FormulaR1C1 = "=VLOOKUP(RC[-5],单价!C[-4]:C[2],7,FALSE)"
    Range("F" & Ro1 & ":F" & Ro).FillUp
    Range("H" & Ro).FormulaR1C1 = "=SUMIF('月份 (10)'!C[-2],RC[-7],'月份 (10)'!C[2])"
    Range("H" & Ro1 & ":H" & Ro).FillUp
    Range("I" & Ro).FormulaR1C1 = "=VLOOKUP(RC[-8],'月份 (10)'!C[-3]:C,4,FALSE)"
    Range("I" & Ro1 & ":I" & Ro).FillUp
    Range("J" & Ro).FormulaR1C1 = "=VLOOKUP(RC[-9],'月份 (10)'!C[-4]:C[1],6,FALSE)/1.17"
    Range("J" & Ro1 & ":J" & Ro).FillUp
   
    Range("E" & Ro1 - 1).Select
    Selection.ClearContents
   
    Range("D" & Ro1 - 1).Select
    Selection.ClearContents
   
    Range("C" & Ro1 - 1).Select
    Selection.ClearContents
    Selection.Font.Bold = True
    Selection.Font.Color = -4165632
    Selection.NumberFormatLocal = "0.00_);[红色](0.00)"
    Selection.HorizontalAlignment = xlCenter
   
    Range("B" & Ro1 - 1).Select
    Selection.ClearContents
    Selection.Font.Bold = True
    Selection.Font.Color = -4165632
    Selection.HorizontalAlignment = xlCenter
   
    Range("A" & Ro1 - 1).Select
    ActiveCell.FormulaR1C1 = "10月份"
    Selection.Font.Bold = True
    Selection.Font.Color = -4165632
    Selection.HorizontalAlignment = xlCenter
   
End Sub

席可茵

jio1ye 发表于 2013-11-8 12:38

运行错误 “242”

席可茵

xdragon 发表于 2013-11-8 11:46
sheets("sheet1").range("A" & sheets("sheet1").cells(rows.count,1).end(3).row+1).select

可以定位，但无法激活。
激活应该添加什么代码？

CheryBTL

晕，发错了。。。。 抱歉

xdragon

席可茵 发表于 2013-11-8 14:35
可以定位，但无法激活。
激活应该添加什么代码？

sheets("sheet1").select
range("A"& cells(rows.count,1).end(3).row+1).activate

席可茵

xdragon 发表于 2013-11-8 14:49
sheets("sheet1").select
range("A"& cells(rows.count,1).end(3).row+1).activate

运行错误