如图:在E列输入一公式表示:C列数组中含有1和5,或2和6(或者15,26均含有也算)的数组对应序号之差.
来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/11/17 07:05:41
如图:在E列输入一公式表示:C列数组中含有1和5,或2和6(或者15,26均含有也算)的数组对应序号之差.
5号是不是2而不是1?
再问: 对不起,重新解释如下: 1,1和5必须同时存在,1,5不分先后顺序,如序号3对应的数字串1153,序号7对应的5123。 2,或者2,6同时存在,如序号1对应的2876,序号10对应的2262. 3,或者同时含有1,5和2,6,如序号6对应的1265. 4,不难发现,序号1至14对应的数字串里满足条件的序号是:1,3,6,7,9,10,11 5,现在要在E列输入一公式,公式下拉后得到的数字:2,3,1,2,1,1.表示满足以上1,2,3条件的相邻数字串对应序号之差。
再答: Option Explicit Sub 交互版() Dim arr, i%, RangA As Range, RangB As Range, j%, k%, ko% Set RangA = Application.InputBox(prompt:="请选择原始数据的区域", Type:=8) 'Set RangA = Range("b2:c18") Set RangB = Application.InputBox(prompt:="请选择目标数据的左上角。" & vbCrLf & "右下方数据将被覆盖!", Type:=8) 'Set RangB = Range("e2"): j = 0: k = 0 arr = RangA For i = 1 To UBound(arr) If InStr(1, arr(i, 2), "1") > 0 And InStr(1, arr(i, 2), "5") > 0 Then k = arr(i, 1) If InStr(1, arr(i, 2), "2") > 0 And InStr(1, arr(i, 2), "6") > 0 Then k = arr(i, 1) If k > 0 Then Exit For Next i: ko = k: k = 0 For i = i + 1 To UBound(arr) If InStr(1, arr(i, 2), "1") > 0 And InStr(1, arr(i, 2), "5") > 0 Then k = arr(i, 1) If InStr(1, arr(i, 2), "2") > 0 And InStr(1, arr(i, 2), "6") > 0 Then k = arr(i, 1) If k > 0 Then RangB.Offset(j, 0) = k - ko: ko = k: j = j + 1: k = 0 Next i End Sub
再问: 对不起,重新解释如下: 1,1和5必须同时存在,1,5不分先后顺序,如序号3对应的数字串1153,序号7对应的5123。 2,或者2,6同时存在,如序号1对应的2876,序号10对应的2262. 3,或者同时含有1,5和2,6,如序号6对应的1265. 4,不难发现,序号1至14对应的数字串里满足条件的序号是:1,3,6,7,9,10,11 5,现在要在E列输入一公式,公式下拉后得到的数字:2,3,1,2,1,1.表示满足以上1,2,3条件的相邻数字串对应序号之差。
再答: Option Explicit Sub 交互版() Dim arr, i%, RangA As Range, RangB As Range, j%, k%, ko% Set RangA = Application.InputBox(prompt:="请选择原始数据的区域", Type:=8) 'Set RangA = Range("b2:c18") Set RangB = Application.InputBox(prompt:="请选择目标数据的左上角。" & vbCrLf & "右下方数据将被覆盖!", Type:=8) 'Set RangB = Range("e2"): j = 0: k = 0 arr = RangA For i = 1 To UBound(arr) If InStr(1, arr(i, 2), "1") > 0 And InStr(1, arr(i, 2), "5") > 0 Then k = arr(i, 1) If InStr(1, arr(i, 2), "2") > 0 And InStr(1, arr(i, 2), "6") > 0 Then k = arr(i, 1) If k > 0 Then Exit For Next i: ko = k: k = 0 For i = i + 1 To UBound(arr) If InStr(1, arr(i, 2), "1") > 0 And InStr(1, arr(i, 2), "5") > 0 Then k = arr(i, 1) If InStr(1, arr(i, 2), "2") > 0 And InStr(1, arr(i, 2), "6") > 0 Then k = arr(i, 1) If k > 0 Then RangB.Offset(j, 0) = k - ko: ko = k: j = j + 1: k = 0 Next i End Sub
如图,在U列输入一公式,下拉后在U列显示:左侧四位数的数组中含有14或56或29数组的间隔.
如图,在U列输入一公式,下拉后在U列显示:左侧P至S列四位数的数组中含有14或56或29的间隔.
C语言,将一个二维数组a的行和列的元素互换,存到另一个二维数组b中.列如 123 1 4 2 5 456 3 6
用C#编写:输入一个5行5列的二维数组,编程实现:(1)求出其中的最大值和最小值及其对应的行列位置.
编写c语言二维数组一、任意输入15个整数到二维数组中,将它们输出显示成一个5行3列的数阵.二、任意输入9个整数到二维数组
C语言题目,输入一个4*4数组,分别计算奇数列和偶数行之...
我要计算A列的数组满足1-200之间的数所对应的B列数组的平均值如何用函数公式计算?
输入4×4的数组,编写程序实现:(1)求出对角线上各元素的和; (2)求出对角线上行、列下标均为偶数的
C语言将二维数组A的行和列元素互换,存到二维数组B中
矩阵乘法计算编写一个函数实现矩阵A(2行3列)与矩阵B相乘(3行2列),乘积放在C数组中,在主函数中输入相乘的两数组,并
wps求差公式如图,怎样输入公式E列的数字等于D列减C列对应的数字,G列的数字等于C列的数字乘以F列的数字,K列的数字等
matlab中怎么对数组列元素求和.例如,D=[1 2 3;4 5 6;7 8 9;] 求每一列元素的和.