我有一个I13到I6076的范围。我首先是从I13单元开始的，在Range("D12:D103333")。如果在ColD中找到匹配项，则应抵消Activecell.offset(1,1)从ColD单元格，将接下来的16个单元格（垂直副本）复制到相应的I13行（水平糊）。然后转到I14，依此类推。我创建了一个循环的do，以找到该范围内的单元格Range("D12:D103333")，但是如何抵消并复制接下来的16个单元格。然后转到ColI的下一个牢房。任何帮助将不胜感激。非常感谢。代码在下面。SubKantar()DimCategoryAsStringiAsIntegerRange("I13")