如何使用大神编写的VBA?

class11class

之前大神为我写了工作中要遇到的难题VBA来解决，可我小白VBA，不会改他的代码，我试了好几次，也没改好，希望大家帮我改下，谢谢。



大神写的代码：

Option Explicit

Sub test1()
  Dim ar, br(1 To 10000, 1 To 3) As String
  Dim i As Long, j As Integer, k As Long, n As Integer
  ar = Range("A1").CurrentRegion.Offset(1)
  For i = 1 To UBound(ar) - 1
    For n = 1 To ar(i, 5)
      k = k + 1
      For j = 1 To 3
        br(k, j) = ar(i, j)
      Next
    Next
  Next
  With Range("H1")
    .CurrentRegion.Clear
    With .Resize(k, UBound(br, 2))
      .Value = br
      .Borders.LineStyle = xlContinuous
      .HorizontalAlignment = xlCenter
    End With
  End With
  Beep
End Sub

gwjkkkkk

简单改一下，请参考附件。。。

class11class

gwjkkkkk 发表于 2023-1-3 22:01
简单改一下，请参考附件。。。

大神，好人做到底吧，如果再加一列，我要如何修改代码呢？

class11class

如何改代码？主要是改哪几个参数？

tanglf188

试试这个呢，随便你加行列，行不用改代码，列按提示修改就行了。
Sub test()
    col = "F" '在这里修改列字母编号，因为是从H开始粘贴的所以赋值要在A-G之间就行
    Application.ScreenUpdating = False
    Sheet1.Columns("H:N").Delete Shift:=xlToLeft
    countrow = Sheet1.UsedRange.Cells(Sheet1.UsedRange.Rows.Count, 1).Row
    Sheet1.Range("A2:" & col & countrow).Copy
    Sheet1.Range("H1").Select
    ActiveSheet.Paste
    Selection.Columns.AutoFit
    Application.CutCopyMode = False
    Sheet1.Range("A1").Select
    Application.ScreenUpdating = True
End Sub

class11class

tanglf188 发表于 2023-1-4 09:52
试试这个呢，随便你加行列，行不用改代码，列按提示修改就行了。
Sub test()
    col = "F" '在这里修改 ...

我找到如何修改这个代码，感谢大家的帮肋，非常感谢。

tanglf188

class11class 发表于 2023-1-4 11:57
我找到如何修改这个代码，感谢大家的帮肋，非常感谢。

就是第二行的：col = "F"，这""里的F可以从A到G的任意一个字母

class11class

tanglf188 发表于 2023-1-4 09:52
试试这个呢，随便你加行列，行不用改代码，列按提示修改就行了。
Sub test()
    col = "F" '在这里修改 ...

你这个代码没有实现我要的功能呢，运行后，只是单纯地复制，而我要实现的是：根据后面的数量，2，4，6，8，10，分别复制2次，4次，6次，8次，10次，这些要同时操作呢，你的代码我改了后面的数量，没有实现这样的功能

class11class

class11class 发表于 2023-1-4 13:47
你这个代码没有实现我要的功能呢，运行后，只是单纯地复制，而我要实现的是：根据后面的数量，2，4，6，8 ...

最好还能插入列，我也是刚学VBA，好多我都不会改，估计要3个月后，我才能理解这些代码如何改呢。

tanglf188

class11class 发表于 2023-1-4 13:47
你这个代码没有实现我要的功能呢，运行后，只是单纯地复制，而我要实现的是：根据后面的数量，2，4，6，8 ...

逐行复制，用循环粘贴就可以了