请大佬看看VBA能不能实现

shuyiquan

感觉有点难
信息数据来源于数据源表，数据源表中每一行数据需要生成一个sheet。
当信息3等于KAY，则信息5 C6等于2222222，C7等于333333。信息6 D6等于3，D7等于4。信息4 A6 A7相同,
当信息3最后一个字母为 U，则信息5 C6等于444444。信息6 D6等于7
其他情况下，信息5 C6等于1111111。信息6 D6等于7

slonby

看题目都没看懂

tanglf188

看了段相声剧本

bxm78

要求没看懂

3190496160

没啥技术难度，就是繁琐的判断而已

shuyiquan

3190496160 发表于 2023-5-23 11:49
没啥技术难度，就是繁琐的判断而已

大佬方便写一下嘛？

cyq4896

试试符合要求吧

cyq4896

带按钮的。

shuyiquan

cyq4896 发表于 2023-5-23 14:46
带按钮的。

您好！非常感谢，有一点就是比如源数据数据条数不固定呢，改如何判断？
比如1~15不固定

3190496160

Sub 批量生成()
Application.ScreenUpdating = False
With Sheets("数据源")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("a1:h" & r)
End With
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Index > 2 Then
        sh.Delete
    End If
Next sh
Application.DisplayAlerts = True
For i = 2 To UBound(ar)
    If Trim(ar(i, 2)) <> "" Then
        Sheets("模版").Copy after:=Sheets(Sheets.Count)
        With ActiveSheet
            .[a3] = ar(i, 6)
            .[b3] = ar(i, 7)
            .[g3] = ar(i, 8)
            .[a6] = ar(i, 2)
            If Trim(ar(i, 8)) = "KAY" Then
                .[c6] = "2222222"
                .[c7] = "3333333"
                .[d6] = 3
                .[d7] = 4
            ElseIf Right(Trim(ar(i, 8)), 1) = "U" Then
                .[c6] = "444444"
                .[d6] = 7
            Else
                .[c6] = "1111111"
                .[d6] = 7
            End If
            .Name = ar(i, 2)
        End With
    End If
Next i
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub