求单元格取值

reneechen79

sxbjzjf110 发表于 2023-3-18 16:28
参与一下。。。。。

是要这样，但是没有看到宏，要怎么完成呢？

sxbjzjf110

第一次没有保存。。。

cjc209

reneechen79 发表于 2023-3-18 16:24
谢谢帮助。如果要把店员号00000001以上的行全部删除，又该怎么写编码呢？每天倒出的明细中，00000001所在 ...

Sub 过程名()
    Dim h
    h = Cells.Find(what:="00000001", _
        After:=Range("a1"), LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByColumns, _
        SearchDirection:=xlNext, MatchCase:=False).Row
    Rows("1:" & h - 1).Delete
End Sub

sxbjzjf110

用数组写了一下，能快一些。

reneechen79

sxbjzjf110 发表于 2023-3-18 16:48
第一次没有保存。。。

谢谢。这个可以。
还想再请教一下：
静态码店员号00000001以上的行全部删除，又该怎么写编码呢？每天倒出的明细中，00000001所在行不固定。而且，不是每天都是以00000001为开头。如果当天没有交易，就会是其他的店员号

reneechen79

cjc209 发表于 2023-3-18 16:48
Sub 过程名()
    Dim h
    h = Cells.Find(what:="00000001", _

谢谢，跟前面各位的结合一起用，正好可以解决我的问题，非常感谢