按要求填列数据

lbhlbh

'用VBA编写代码，实现如下要求：1、当“数据库”的A列的日期等于“未上报”表的“B20”和“数据库”表“I”列某个单元格的等于0时。分别将满足条件(“数据库”的"T”列的某些行的值等于“未上报”表的B3）的数据行的所有C、D列单元格的值自动从“未上报”表的"B5"单元格开始填列（当满足条件的数据超过12行时，第十三个数据又从“D5”单元格开始填列，如“数据库”表的C4:D4、C7:B7分别填列到“未上报”表的B5:C5、B6:C6,以此类推。）2、当“数据库”的A列的日期等于“未上报”表的“B20”和“数据库”表“I”列某个单元格的等于0时。分别将满足条件(“数据库”的"T”列的某些行的值等于“未上报”表的J3）的数据行的所有C、D列单元格的值自动从“未上报”表的"J5"单元格开始填列（当满足条件的数据超过12行时，第十三个数据又从“L5”单元格开始填列，如“数据库”表的C28:D28、C33:D33分别填列到“未上报”表的J5:K5、J6:K6,以此类推。）3、当“数据库”的A列的日期等于“未上报”表的“A20”和“数据库”表“I”列某个单元格的等于0时。分别将满足条件(“数据库”的"T”列的某些行的值等于“未上报”表的R3）的数据行的所有C、D列单元格的值自动从“未上报”表的"R5"单元格开始填列（当满足条件的数据超过12行时，第十三个数据又从“T5”单元格开始填列，如“数据库”表的C114:D114、C118:D118分别填列到“未上报”表的R5:S5、R6:S6,以此类推。） 4、以此类推，根据“未上报”表的"B3到"BH3"(共8组，每组8列、如B3\J3\R3.....BH3)值和以上的相关条件一直分拆填列.

ykcbf1100

看这需求就头大。

lbhlbh

ykcbf1100 发表于 2024-12-10 11:12
看这需求就头大。

liulang0808

建议楼主重新梳理下描述信息，描述信息要与表格内容对应上，模拟出结果，让大家更容易理解

fenghuaxue

1. 支持

复制代码

lbhlbh

liulang0808 发表于 2024-12-10 15:15
建议楼主重新梳理下描述信息，描述信息要与表格内容对应上，模拟出结果，让大家更容易理解

满足下面4个条件的数据就自动填列过来：1、B19=数据库表中的A列，2、数据库表中的T列=B3，3、数据库表中的J列的值大于0，4、当满足以上3个条件的数据行超过12个时，就从“D5”单元格开始填列，如“数据库”表的C22\D22和C23\D23，以此类推。具体如模拟效果图表。非常谢谢了

liulang0808

liulang0808

供参考。。。。。。。。。。。。。。。。。

lbhlbh

liulang0808 发表于 2024-12-10 16:55
供参考。。。。。。。。。。。。。。。。。

非常谢谢。但好像只对“A1”区域的数据有作用，其他区域A2、A3....等都不起作用的

liulang0808

因为你后面表格的每个区域列数不一样的，更新了下