求单元格取值

reneechen79

求大神帮忙，
1.将静态码店员号添加到相应的持卡人姓名档，每天每个店员号的交易笔数都不一样。
2.静态码店员号00000001以上的行全部删除，又该怎么写编码呢？每天倒出的明细中，00000001所在行不固定。

zxsea_7426

修改如下：

zxsea_7426

1. Sub 静态码店员号添加()  '根据不是A列不是"静态码店员号："或者不是"交易日期"添加
   
2. With Sheets("【商户对账单】")
   
3.     r_ = .Cells(Rows.Count, 1).End(3).Row
   
4.     l_ = .Cells(12, Columns.Count).End(1).Column
   
5.     ar = .Range(.[a1], .Cells(r_, l_))
   
6.     For i = 11 To UBound(ar)
   
7.         If InStr(ar(i, 1), "静态码店") = 1 Then
   
8.             静态码 = ar(i, 2)
   
9.         End If
   
10.         If ar(i, 1) = "交易日期" Or InStr(ar(i, 1), "静态码店") Then GoTo 100:
    
11.         ar(i, 11) = 静态码
    
12. 100:
    
13.     Next i
    
14.     .[k1].Resize(UBound(ar), 1).NumberFormatLocal = "@"
    
15.     .[k1].Resize(UBound(ar), 1) = Application.WorksheetFunction.Index(ar, 0, 11)
    
16. End With
    
17. End Sub
    
18. 
    
19. Sub 静态码店员号添加2() '根据金额添加
    
20. With Sheets("【商户对账单】")
    
21.     r_ = .Cells(Rows.Count, 1).End(3).Row
    
22.     l_ = .Cells(12, Columns.Count).End(1).Column
    
23.     ar = .Range(.[a1], .Cells(r_, l_))
    
24.     For i = 11 To UBound(ar)
    
25.         If InStr(ar(i, 1), "静态码店") = 1 Then 静态码 = ar(i, 2)
    
26.         If IsNumeric(ar(i, 5)) And ar(i, 5) <> "" Then ar(i, 11) = 静态码
    
27.     Next i
    
28.     .[k1].Resize(UBound(ar), 1).NumberFormatLocal = "@"
    
29.     .[k1].Resize(UBound(ar), 1) = Application.WorksheetFunction.Index(ar, 0, 11)
    
30. End With
    
31. End Sub
    
32. 
    

复制代码

cjc209

完成 就是一个循环加定位取值写入过程

lushang2018

1.     Sheet1.Activate
   
2.     Dim 目标, 间隔
   
3.     n = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
   
4.     For i = 1 To n
   
5.         If Cells(i, 1) Like "静态码店员号：" Then
   
6.             目标 = Application.Match("静态码店员号：", Range(Cells(i + 1, 1), Cells(n, 1)), 0)
   
7.             If IsError(目标) = False Then
   
8.                 间隔 = 目标 - 2
   
9.             Else
   
10.                 间隔 = n - i - 1
    
11.             End If
    
12.             Cells(i + 2, "K").Resize(间隔, 1) = Cells(i, 2)
    
13.         End If
    
14.     Next

复制代码

lushang2018

Sub 测试()  ''答题专用套路--by:学习使我快乐
    Dim i, j, k, m, n, arr, brr, crr, drr
    Sheet1.Activate
    Dim 目标, 间隔
    n = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To n
        If Cells(i, 1) Like "静态码店员号：" Then
            目标 = Application.Match("静态码店员号：", Range(Cells(i + 1, 1), Cells(n, 1)), 0)
            If IsError(目标) = False Then
                间隔 = 目标 - 2
            Else
                间隔 = n - i - 1
            End If
            Cells(i + 2, "K").Resize(间隔, 1) = Cells(i, 2)
        End If
    Next
End Sub

lushang2018

1. Sub 测试()  ''答题专用套路--by:学习使我快乐
   
2.     Dim i, j, k, m, n, arr, brr, crr, drr
   
3.     Sheet1.Activate
   
4.     Dim 目标, 间隔
   
5.     n = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
   
6.     For i = 1 To n
   
7.         If Cells(i, 1) Like "静态码店员号：" Then
   
8.             目标 = Application.Match("静态码店员号：", Range(Cells(i + 1, 1), Cells(n, 1)), 0)
   
9.             If IsError(目标) = False Then
   
10.                 间隔 = 目标 - 2
    
11.             Else
    
12.                 间隔 = n - i - 1
    
13.             End If
    
14.             Cells(i + 2, "K").Resize(间隔, 1) = Cells(i, 2)
    
15.         End If
    
16.     Next
    
17. End Sub

复制代码

reneechen79

zxsea_7426 发表于 2023-3-18 15:01
修改如下：

非常谢谢你的帮忙

reneechen79

cjc209 发表于 2023-3-18 15:14
完成 就是一个循环加定位取值写入过程

谢谢帮助。如果要把店员号00000001以上的行全部删除，又该怎么写编码呢？每天倒出的明细中，00000001所在行不固定

sxbjzjf110

参与一下。。。。。