求助] 急、急请求大师帮忙写个代码，十分谢谢！！

xz158168 · 发表于 2024-1-23 12:56

三基题.zip (630.35 KB, 下载次数: 68)

570964373 · 发表于 2024-1-23 17:08

你看看可以不,符号有些乱,你自己再处理下应该就行了

gwjkkkkk · 发表于 2024-1-23 19:46

Option Explicit
Sub TEST1()
Dim ar, br, i&, c&, r&, strLetter$

With Sheets("原始数据")
      ar = Range(.[A4], .Cells(Rows.Count, "A").End(xlUp)).Value
End With
ReDim br(1 To UBound(ar), 1 To 7)
r = 1
With CreateObject("VBScript.RegExp")
      .Pattern = "[A-Z]+$"
      For i = 1 To UBound(ar)
         If Len(ar(i, 1)) Then
            If c = 1 Then c = 2
            c = c + 1
            br(r, c) = ar(i, 1)
            If c = 1 Then
                  strLetter = .Execute(br(r, c))(0).Value
            Else
                  If InStr(br(r, c), strLetter) Then br(r, 2) = br(r, c)
            End If
         Else
            r = r + 2
            c = 0
         End If
      Next i
End With

Cells.Clear
[A1].Resize(r, UBound(br, 2)) = br
Beep
End Sub

gwjkkkkk · 发表于 2024-1-23 19:47

参与一下。。。

xz158168 · 发表于 2024-1-24 11:31

三基题备选答案和答案.zip (631.1 KB, 下载次数: 8)
我原需修改格式弄错，现重新麻烦大师写代码谢谢！！

OwenYING · 发表于 2024-1-24 13:23

xz158168 发表于 2024-1-24 11:31
我原需修改格式弄错，现重新麻烦大师写代码谢谢！！

是这样的吗？

OwenYING · 发表于 2024-1-24 13:24

是这样的吗？

xz158168 · 发表于 2024-1-25 10:44

不是三题是全部题目

		自动登录	找回密码
密码			免费注册

[求助] 求助] 急、急请求大师帮忙写个代码，十分谢谢！！