前面数字，对应填到后面

我来学习知识

A-F的数字，后面1-33就显示，比如：黄色有3,1-33的3下面那个单元格就显示3，G列有什么数字，就在后面1-16显示，谢谢各位！

我来学习知识

帮忙写个函数就行

taller

taller

1. Sub CopyData()
   
2.     Dim lr As Long: lr = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
   
3.     ' loop through each row in the active sheet
   
4.     Dim i As Long, j As Long, iVal
   
5.     For i = 2 To lr
   
6.         Cells(i, 8).Resize(1, 33).ClearContents
   
7.         iVal = Cells(i, 7).Value
   
8.         For j = 1 To 6
   
9.             Cells(i, 7 + Cells(i, j).Value) = iVal
   
10.         Next
    
11.     Next i
    
12. End Sub
    

复制代码

我来学习知识

taller 发表于 2025-3-29 10:24

不用代码，不会，公式就行了，A-F列有数字几，后面的1-33下面同列就会有数字，显示的是和前面相同的就行

我来学习知识

taller 发表于 2025-3-29 10:24

弟7个数字是蓝马，懂了吗

ynzsvt

看看…………

温馨云

根据taller版主提供的函数写的，请查收。

工作簿10.zip (12.81 KB, 下载次数: 1)

2025-3-29 11:12 上传

点击文件名下载附件

沈默00

=IF(COUNTIF($A2:$F2,H$1),H$1,"")  右拉下拉，，，
G 列同样的写法

我来学习知识

ynzsvt 发表于 2025-3-29 10:57
看看…………

对，好像没问题。谢谢了