EXCEL VBA 代码的问题?

C9是AQ9:AT9数值的除3余0的个数;D9是AQ9:AT9数值的除3余1的个数;E9是AQ9:AT9数值的除3余2的个数;一行一行相对应的;请老师帮忙,写个快速返回的... C9是AQ9:AT9数值的除3余0的个数;
D9是AQ9:AT9数值的除3余1的个数;
E9是AQ9:AT9数值的除3余2的个数;
一行一行相对应的;
请老师帮忙,写个快速返回的数组代码

另外能不能方便一些,因为我还需要修改除4和除5的
展开
 我来答
阳光上的桥
2021-04-09 · 知道合伙人软件行家
阳光上的桥
知道合伙人软件行家
采纳数:21424 获赞数:65806
网盘是个好东东,可以对话和传文件

向TA提问 私信TA
展开全部

程游芦序代码:

程序运行结果:

代码文本:

Option Explicit


Sub 宏1()

    Dim arrC, arrAQ, i&, j&, k&, n&

    n = Cells(Rows.Count, "AQ").End(xlUp).Row - 8 'AQ列从9行开始的数据行数

    arrAQ = Range("AQ9").Resize(n, 4)

    ReDim arrC(1 To n, 1 To 3)

 带码   For i = 1 To n

        For j = 1 To 4

            k = arrAQ(i, j) Mod 3 + 1 '余数+1

 蠢磨哪           arrC(i, k) = arrC(i, k) + 1 '数组C对应列+1

        Next j

    Next i

    Range("C9").Resize(n, 4) = arrC

End Sub

jokulboy
2021-04-09 · TA获得超过657个赞
知道小有建树答主
回答量:979
采纳率:59%
帮助的人:320万
展开全部

兄弟,还是我来嘛,别个不熟悉带碧,理解要半天

Sub cm()
Dim r, i, j%
Dim a%
Dim m, n%
Dim arr, brr, sh1
Set sh1 = ActiveSheet
n = InputBox("请输入数谨拦字!")
With sh1
r = .Range("at" & Rows.Count).End(xlUp).Row
.Range("c9:g" & Rows.Count).ClearContents
arr = .Range("aq9:at" & r)
ReDim brr(1 To UBound(arr), 1 To n)
For i = 9 To r
For m = 0 To n - 1
a = 0
For j = 43 To 46
If IsNumeric(.Cells(i, j)) Then
If .Cells(i, j) Mod n = m Then
a = a + 1
End If
brr(i - 8, m + 1) = a
End If
Next j
Next m
Next i
.Range("c9").Resize(UBound(arr), n) = brr
End With
End Sub

整个可以弹出一蠢晌举个对话框,然后你输入多少就按照 多少来。

也可以把整个对话框换成提取某个单元格的值,看你需求!!

追问
这样子修改起来是方便,不过就是慢了很多,哎,苦啊.
追答
有多少数据啊,还嫌慢,我再修改下,保证不慢
这俩句
If IsNumeric(.Cells(i, j)) Then
If .Cells(i, j) Mod n = m Then
改为
If IsNumeric(arr(i - 8, j - 42)) Then
If arr(i - 8, j - 42) Mod n = m Then
是我的失误,取了个数组居然没有使用,直接用的单元格,我说不应该慢。。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
wby20022002
2021-04-09
知道答主
回答量:5
采纳率:0%
帮助的人:2345
展开全部
Sub AA()Dim XX = WorksheetFunction.CountIf(Range("G3:k8"), "*" & "B" & "*"册宏游)If X > 0 ThenRange("G3:K8") = "州销"绝颤End IfEnd Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
Ynzsvt
2021-04-09 · TA获得超过6662个赞
知道大有可为答主
回答量:1.5万
采纳率:40%
帮助的人:2647万
展开全部
沟通后想怎么方便就怎么方便。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式