把一列的图片转换成多行多列（vba配合int取整mod取余函数） |
|
作者：
来源：原创
|
原始表样式如下图：
要求得到的效果如下图：
使用vba代码后，
Sub 复制图片()
For old = 1 To 20
'复制图片列
Sheet1.Activate
Cells(old, 2).Select
Selection.Copy '选择原始表，复制数据
'判断列
c = old Mod 5
If c <> 0 Then
c = c
Else
c = 5
End If
Debug.Print c
'判断行
r = Int(old / 5)
If r < old / 5 Then
r = r * 2 + 1
Else
r = r * 2 - 1
End If
Sheet10.Activate '选择结果表，粘贴数据
Cells(r, c).Select
ActiveSheet.Paste
'复制文字列
Sheet1.Activate
Cells(old, 3).Select
Selection.Copy '选择原始表，复制数据
Sheet10.Activate '选择结果表，粘贴数据
Cells(r + 1, c).Select
ActiveSheet.Paste
Next
End Sub |
|
|
|
|
