1

我有一个大问题。我对建立一个 Magento 网站感到非常压力，它通过 csv 处理导入的方式令人费解！

我基本上没有接受过 VBA 培训，但我认为它可以帮助我完成这项工作。问题在于多字段csv。我有一个名为size的列标题。下面我需要 7 列具有固定值：38、39、40、...、44 我当前的 csv 使用单行。所以我需要多行，只是 size 列中的单元格完成了这些值。前任：

HEADER1  HEADER2 HEADER3 SIZE         HEADER 4
Value    Value   Value   38,39, etc   Value
Value2   Value2  Value2  38,39, etc   Value2

I Need This:

HEADER1  HEADER2 HEADER3 SIZE         HEADER 4
Value    Value   Value   38           Value
                         39
                         40
                         41
Value2   Value2  Value2  38           Value2
                         39
                         40
                         41

我找到了一个脚本

Sub InsertARow()
 'make new row
ActiveCell.EntireRow.Insert Shift:=xlDown
 'copy the row above
ActiveCell.Offset(-1, 0).EntireRow.Copy Cells(ActiveCell.Row, 1)
On Error Resume Next
 'clear every cell in the new line that does not have a formula
ActiveCell.EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

这会在当前选择上方插入 X 行。有什么方法可以对选择中的所有单元格执行此操作吗？自动完成将处理其余部分。我在想类似的东西

for i:=1 to n do 
    j:=i+7(the number of sizes i need to display) -> insert the above code for that cell.

实际完成由 Excel 处理。

4

1 回答 1

0

您的问题与以下问题基本相同，因此您可能希望将我的解决方案应用于您的情况 - 这样做应该不难。

Excel如何将单元格分割成一行

Excel/VBA 细分字段

于 2012-11-07T14:30:36.923 回答