循环+判断

27234aa

为了解决一个问题，看了近两个星期的VBA 写了一个星期代码。未能如愿。
恳请各位老师百忙中抽时间，不吝赐教。谢谢！

Book1.zip (41.84 KB, 下载次数: 12)

2019-10-10 21:10 上传

点击文件名下载附件

27234aa

1、当AK7="A"时，"BK7"="BK384"(BK列最小值)，"CC7"= "1";当"BK7"="BK385"(BK最大值),"CD7" = "1";当BK385<"BK7"<BK385;"CE7" = "1"

网海遨游

不知是否符合要求？


Sub t20191010()
        Set sh = Sheets("sheet1")
        sh.[cc2:df60000].ClearContents
        ar = [{63,67,71,72,73,75,76,77,79}]
        For j = 7 To 377 Step 10
               If sh.Cells(j, 37).value = "A" Then
                For Each i In ar
                        n = n + 1
                        If sh.Cells(j, i).Value = sh.Cells(384, i).Value Then sh.Cells(j, 80 + (3 * n - 2)) = 1
                        If sh.Cells(j, i).Value = sh.Cells(385, i).Value Then sh.Cells(j, 80 + (3 * n - 1)) = 1
                        If sh.Cells(j, i).Value > sh.Cells(384, i).Value And sh.Cells(j, i).Value < sh.Cells(385, i).Value Then sh.Cells(j, 80 + 3 * n) = 1
                Next i
                n = 0
                End If
        Next j

27234aa

谢谢网海遨游老师！
这么快就有回应，感动ing.虽然看不懂，但感觉是这个样的，很厉害。
我验证一下。

27234aa

网海遨游 发表于 2019-10-10 22:43
不知是否符合要求？

我把代码放进去，没有反应。
麻烦网海遨游老师再帮忙看看。
另补充说明：
当AK7="A"时，
当"BK7"="BK384"(BK列最小值),"CC7"= "1";
     当"BK7"="BK385"(BK列最大值),"CD7" = "1";
     当BK385<"BK7"<BK385;"CE7" = "1"
当"BO7"="BO384"(BO列最小值),"CF7"= "1";
     当"BO7"="BO385"(BO列最大值),"CG7" = "1";
     当BO385<"BO7"<BO385;"CH7" = "1"
当"BS7"="BS384"(BS列最小值),"CI7"= "1";
     当"BS7"="BS385"(BS列最大值),"CJ7" = "1";
     当BS385<"BS7"<BS385;"CK7" = "1"
当"BT7"="BT384"(BT列最小值),"CL7"= "1";
     当"BT7"="BT385"(BT列最大值),"CM7" = "1";
     当BT385<"BT7"<BT385;"CN7" = "1"
当"BU7"="BU384"(BU列最小值),"CO7"= "1";
     当"BU7"="BU385"(BU列最大值),"CP7" = "1";
     当BU385<"BU7"<BU385;"CQ7" = "1"
当"BW7"="BW384"(BW列最小值),"CR7"= "1";
     当"BW7"="BW385"(BW列最大值),"CS7" = "1";
     当BW385<"BW7"<BW385;"CT7" = "1"
当"BX7"="BX384"(BX列最小值),"CU7"= "1";
     当"BX7"="BX385"(BX列最大值),"CV7" = "1";
     当BX385<"BX7"<BX385;"CWT7" = "1"
当"BY7"="BY384"(BY列最小值),"CX7"= "1";
     当"BY7"="BY385"(BY列最大值),"CY7" = "1";
     当BY385<"BY7"<BY385;"CZT7" = "1"
当"CA7"="CA384"(CA列最小值),"DA7"= "1";
     当"CABY7"="CA385"(CA列最大值),"DB7" = "1";
     当CA385<"CA7"<CA385;"DCT7" = "1"
.............................

网海遨游

27234aa 发表于 2019-10-11 10:17
我把代码放进去，没有反应。
麻烦网海遨游老师再帮忙看看。
另补充说明：

你把后面的表格拉得太窄，看不到了。实际上应该可以的。你点击按钮即可获取数据

27234aa

网海遨游 发表于 2019-10-11 10:38
你把后面的表格拉得太窄，看不到了。实际上应该可以的。你点击按钮即可获取数据

好的，网海遨游老师。
我马上下载看看。

27234aa

网海遨游 发表于 2019-10-11 10:38
你把后面的表格拉得太窄，看不到了。实际上应该可以的。你点击按钮即可获取数据

非常好。谢谢网海遨游老师！
我想还把此方法用于其他工作表。刚才做了一下，没有做好。
这是我做的步骤，什么地方错了，还望网海遨游老师指点。
1、复制粘贴到另外一个工作簿     

2、指定宏。

网海遨游

把代码帮你注释下，你就明白怎么更改了。


Sub t20191011()
        Dim sh As Worksheet, ar, j%, i%, n% '定义变量类型
        Set sh = Sheets("sheet1") '定义工作表对象（这里工作表名叫Sheet1）
        sh.[cc2:df60000].ClearContents '清除要写入数据的区域
        ar = [{63,67,71,72,73,75,76,77,79}] 'Bk、BO、BS、BT、BU……对应的列号（即字母换成了数字）
        For j = 7 To 377 Step 10 '从第7行循环到第377行，步进为10（即7、17、27、37……377）
               If sh.Cells(j, 37).Value = "A" Then '如果AK列（转化成数字就37列）的值是A，就……
                For Each i In ar '遍历相应的列（即遍历Bk、BO、BS、BT、BU……等列）
                        n = n + 1'累加、计数
                        If sh.Cells(j, i).Value = sh.Cells(384, i).Value Then sh.Cells(j, 80 + (3 * n - 2)) = 1 '如果等于该列的384行（最小值），相应的单元格值为1
                        If sh.Cells(j, i).Value = sh.Cells(385, i).Value Then sh.Cells(j, 80 + (3 * n - 1)) = 1
                        If sh.Cells(j, i).Value > sh.Cells(384, i).Value And sh.Cells(j, i).Value < sh.Cells(385, i).Value Then sh.Cells(j, 80 + 3 * n) = 1
                Next i
                n = 0 '初始化n=0（对Bk、BO、BS、BT、BU……每一列都要重新计数），不然在写入数据时会出错。
                End If
        Next j
End Sub

27234aa

老师写得非常浅显易懂，我也看得点头，貌似有点懂的意思。但我的水平就这几天刚刚学会的这句if...then这个语句。看了几个小时，我想是Set sh = Sheets("sheet1") 这个语句吧。到百度上查阅了Set sh = Sheets("sheet1") ，还是不得其解。不懂，脑袋更晕了。也把这段代码复制粘贴到模块里（原来我是放在ThisWorkbook里）。也想找点什么替代“sheet1”,尝试了几次，都不对。
非常感谢网海遨游老师这样耐心、逐句解释！好感动！还望老师有空抽时间指点指教。