Excel - 如果单元格值与列标题匹配，将数据复制到列

Question

我在列A中有字符串数据，列B中有数字值。我也有列O到Z，它们当前是空白的 - 这些列有标题1， 2，3等（即单元格引用O2 = 1，P2 = 2，Q2 = 3等）

单元格C1中有一个数值。

如果C1 =匹配任何列标题（O-Z），则将列B中的数据复制到相应的列。

示例：如果C1 = 4和细胞R 2是4，从列B中的数据将在填充柱R.

如何与VBA实现这一目标？提前致谢。

Answer 1

尝试这样的事情......

Sub CopyDataDynamically() 
Dim lr As Long, num As Long 
Dim rng As Range 
lr = Cells(Rows.Count, 1).End(xlUp).Row 
Set rng = Range("O2") 
num = Range("C1").Value 
If num > 0 And num <= 12 Then 
    Range("B2:B" & lr).Copy 
    rng.Offset(0, num - 1).PasteSpecial xlPasteValues 
End If 
End Sub 

如果你想用一个公式的帮助下实现这一点，试试这个...

在O2

=IF($B2="","",IF(O$1=$C$1,$B2,"")) 

和然后在B列中存在数据的情况下进行复制。