VBA宏，求救贴（行会变，列固定表头）

总共是两个表格（一个是“源数据”：数据的来源地另一个就是6个逻辑文件：需要将“源数据的”对应内容放进6个模块中）
总共是13项步骤，小弟录制过宏，但是碰到其他源数据的列不一致就不行了。（其中碰到的最严峻的问题是小弟不会写数据对应的行数怎么把常量变成变量，让实际情况的数据自动填充）所以来请求大佬们做做趣味题~救命！
1.Y列（库存）筛选带有字符“FBA库存”的数据并且排除"FBA库存：0"的数据

2.这一部分数据连表头一起A-Y列复制进“日本6个逻辑”内的“FBA-5”里面，并且下拉Z:AB三列的公式

3.针对下拉Z列出错的数据，直接等于O列“your price”的数据。Z列 AA列 AB列三列等于O列“your price”

4.回到“源数据”，将第一步里面的这些数据删除（保留表头）

5.在Z2的地方输入公式“=VLOOKUP(E2,'[日本6个逻辑.xlsx]FBA-5'!$E:$E,1,FALSE)”并下拉至有数据的最后一行

6.筛选Z列带有“B0”的数据，并对这部分数据A-Y列复制进“日本6个逻辑”内的“FBM-6”里面，并且下拉Z:AB三列的公式

7.回到“源数据”，将第六步里面的这些数据删除（保留表头）

8.筛选D列“货源状态”不带有“正常”部分的数据，并对这部分数据A-Y列复制进“日本6个逻辑”内的“断货-4”里面，并且下拉Z:AB三列的公式

9.回到“源数据”，将第八步里面的这些数据删除（保留表头）

10.筛选U列“7天销量”大于0的数据，并对这部分数据A-Y列复制进“日本6个逻辑”内的“出单提价+持平3”里面，并且下拉Z:AB三列的公式

11.回到“源数据”，将第十步里面的这些数据删除（保留表头）

12.筛选R列“利润率”不包含“-”的数据，并对这部分数据A-Y列复制进“日本6个逻辑”内的“正常不出单2”里面，并且下拉Z:AB三列的公式

13.回到“源数据”，筛选R列“利润率”包含“-”的数据，并对这部分数据A-Y列复制进“日本6个逻辑”内的“无利润率1”里面，并且下拉Z:AB三列的公式

以下附上我手动录制宏的呆瓜操作。主要是不能把读取行和复制粘贴行的那个数据写出来。自动录制的都是实际的行数，不能变化

Sub 日本完整宏()
'
' 日本完整宏 Macro
' 宏由 Administrator 录制，时间: 2021/03/23
'

Selection.AutoFilter
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Y$127546", Visible:=False
Range("A1:Y127546").AutoFilter Field:=25, Criteria1:="=*fba*", Operator:=xlAnd
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Y$127546", Visible:=False
Range("A1:Y62489").Select
ActiveWindow.ScrollRow = 62423
Selection.Copy
Range("A1:A62435").Select
Selection.Activate
ActiveWindow.ScrollRow = 1
Range("A1:Y62489").Select
ActiveWindow.ScrollRow = 62423
Columns("A:Y").Select
ActiveWindow.ScrollRow = 1048510
Selection.Copy
Windows("listing数据模板（6LJ）-日本.xlsx").Activate
Sheets("FBA-5").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("new.csv").Activate
ActiveWindow.ScrollRow = 1
Rows("62256:62256").Select
ActiveWindow.ScrollColumn = 16348
Rows("62256:62489").Select
ActiveWindow.ScrollRow = 62423
ActiveWindow.ScrollColumn = 1
Selection.Delete Shift:=xlShiftUp
ActiveWindow.ScrollRow = 1
Selection.AutoFilter
Selection.AutoFilter
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$62256:$AF$62489", Visible:=False
Range("X1").Select
Selection.AutoFilter
Selection.AutoFilter
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Y$127312", Visible:=False
Range("Z2").Select
Windows("listing数据模板（6LJ）-日本.xlsx").Activate
Windows("new.csv").Activate
ActiveSheet.Select
ActiveWindow.SelectedSheets.Select Replace:=True
Selection = "=VLOOKUP(E2,'[listing数据模板（6LJ）-日本.xlsx]FBA-5'!$E:$E,1,FALSE)"
Range("Z2").Select
Selection.AutoFill Destination:=Range("Z2:Z127312"), Type:=xlFillDefault
Range("Z2:Z127312").Select
ActiveWindow.ScrollRow = 1
Range("Z1").Select
Selection.AutoFilter
Selection.AutoFilter
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Z$127312", Visible:=False
Range("A1:Z127312").AutoFilter Field:=26, Criteria1:="=*B0*", Operator:=xlAnd
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Z$127312", Visible:=False
Range("A1:Y78893").Select
ActiveWindow.ScrollRow = 64949
Selection.Copy
Range("B1:B70932").Select
Selection.Activate
ActiveWindow.ScrollRow = 1
Range("A1:Y78893").Select
ActiveWindow.ScrollRow = 64949
Columns("A:Y").Select
ActiveWindow.ScrollRow = 1048510
Selection.Copy
Windows("listing数据模板（6LJ）-日本.xlsx").Activate
Sheets("FBM-6").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("new.csv").Activate
Range("Y1048523").Select
ActiveWindow.ScrollRow = 1
Rows("16641:16641").Select
ActiveWindow.ScrollColumn = 16348
Rows("16641:78893").Select
ActiveWindow.ScrollRow = 64949
ActiveWindow.ScrollColumn = 1
Selection.Delete Shift:=xlShiftUp
ActiveWindow.ScrollRow = 1
Range("A1:Z127003").AutoFilter Field:=26, Criteria1:="=*asin*", Operator:=xlAnd
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Z$127003", Visible:=False
Rows("20751:20751").Select
ActiveWindow.ScrollColumn = 16348
Rows("20751:126480").Select
ActiveWindow.ScrollColumn = 1
Selection.Delete Shift:=xlShiftUp
Range("A1:Z126991").AutoFilter Field:=26
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Z$126991", Visible:=False
Range("A1:Z126991").AutoFilter Field:=4, Criteria1:="<>*正常*", Operator:=xlAnd
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Z$126991", Visible:=False
Range("A1:Y126984").Select
ActiveWindow.ScrollRow = 123950
Columns("A:Y").Select
ActiveWindow.ScrollRow = 1048510
Selection.Copy
Windows("listing数据模板（6LJ）-日本.xlsx").Activate
Sheets("断货4").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("new.csv").Activate
ActiveWindow.ScrollRow = 1
Rows("62:62").Select
ActiveWindow.ScrollColumn = 16348
Rows("62:126984").Select
ActiveWindow.ScrollRow = 123950
ActiveWindow.ScrollColumn = 1
Selection.Delete Shift:=xlShiftUp
ActiveWindow.ScrollRow = 1
Range("A1:Z125657").AutoFilter Field:=4
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Z$125657", Visible:=False
Range("A1:Z125657").AutoFilter Field:=21, Criteria1:=">0", Operator:=xlAnd
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Z$125657", Visible:=False
Range("A1:Y121330").Select
ActiveWindow.ScrollRow = 62007
Selection.Copy
Windows("listing数据模板（6LJ）-日本.xlsx").Activate
Sheets("出单提价+持平3").Activate
Range("A1").Select
Windows("new.csv").Activate
ActiveWindow.ScrollRow = 61716
Range("I1:I63333").Select
Selection.Activate
ActiveWindow.ScrollRow = 1
Range("A1:Y121330").Select
ActiveWindow.ScrollRow = 62007
Columns("A:Y").Select
ActiveWindow.ScrollRow = 1048510
Selection.Copy
Windows("listing数据模板（6LJ）-日本.xlsx").Activate
ActiveSheet.Paste
Windows("new.csv").Activate
ActiveWindow.ScrollRow = 1
Range("A1:Z125657").AutoFilter Field:=21
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Z$125657", Visible:=False
Range("A1:Z125657").AutoFilter Field:=21, Criteria1:="=", Operator:=xlAnd
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Z$125657", Visible:=False
Range("A1:Z125657").AutoFilter Field:=18, Criteria1:="<>*-*", Operator:=xlAnd
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Z$125657", Visible:=False
Range("A1:Y125657").Select
ActiveWindow.ScrollRow = 125591
Columns("A:Y").Select
ActiveWindow.ScrollRow = 1048510
Selection.Copy
Windows("listing数据模板（6LJ）-日本.xlsx").Activate
Sheets("正常不出单2").Activate
Range("A1").Select
ActiveSheet.Paste
Sheets("无利润率1").Activate
Windows("new.csv").Activate
Range("Y1048532").Select
ActiveWindow.ScrollRow = 1048480
Range("Q125657:Q1048507").Select
Selection.Activate
ActiveWindow.ScrollRow = 125636
Range("V117677:V125652").Select
Selection.Activate
ActiveWindow.ScrollRow = 1
Range("V1").Select
Range("A1:Z125657").AutoFilter Field:=18, Criteria1:="=*-*", Operator:=xlAnd
ActiveWorkbook.Names.Add Name:="new!_FilterDatabase", RefersTo:="=new!$A$1:$Z$125657", Visible:=False
Range("A1:Y125503").Select
ActiveWindow.ScrollRow = 123215
Columns("A:Y").Select
ActiveWindow.ScrollRow = 1048510
Selection.Copy
Windows("listing数据模板（6LJ）-日本.xlsx").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub

写回答
好问题 0 提建议
追加酬金
关注问题
分享
邀请回答
编辑收藏删除结题
收藏举报

1条回答默认最新

关注

码龄粉丝数原力等级 --

被采纳

被点赞

采纳率
虎锅 2021-03-24 18:54
关注
标题

标题

解决无用
评论打赏
分享
举报

评论

按下Enter换行，Ctrl+Enter发表内容

报告相同问题？

关注问题

excel vba宏的调用开发语言
2022-12-28 05:04

回答 1 已采纳写多个if呀
怎样用js宏(不是vba)去掉指定列多余字符 javascript
2022-03-31 21:08

回答 2 已采纳试试这个： function 去掉指定列多余字符(){ var rng = Range("A1:A" + ActiveSheet.UsedRange.Rows.Count);
VBA执行报错提示宏无效自动化
2023-03-27 11:25

回答 1 已采纳你是用按钮调用宏吗，看看是不是按钮里填错了宏名字比如原来的宏默认叫模块1，你按钮里链接的也是模块1，后来你改了宏名字叫click，可是按钮里没改此外，写好宏之后要保存成xlsm（带宏的excel）文件
Excel vba按照表头字段选择列复制表
2022-09-03 15:29

hy113645278的博客问题描述：从网上下载的表单包含上百个字段，并且表单中的字段顺序经常混乱，制作报表过程中只需要其中的几个字段，因此需要设计一个宏，...目标：根据sheet2第一列提供的字段，从sheet1中搜索表头，依次复制到sheet3中
VBA怎么把每一列数据合并成一个单元格内容 java
2022-08-17 09:28

回答 2 已采纳这个问题涉及以下知识点1.vba的for循环2.vba怎么获取sheet数据区域的最大行号3.vba中字符串拼接4.vba数组 Sub Demo() Dim i As Integer, j A
如何在python中触发excel中的vba宏 python
2020-08-12 17:09

回答 2 已采纳第一种方式，参数"all_transport1()"的括号不需要，只提供宏名称就行了 ``` import win32com.client import os.path xlApp =
C# 调用Word 2016 宏 VBA 的问题 c#
2017-04-14 08:27

回答 2 已采纳自己给自己回答，因为sub 不返回， function 才返回
ExcelVBA 宏将数字转换为列号/列字母/列名数字字母转换
2021-10-11 09:41

今夕乃何夕的博客如Columns(27).Address表示27列的地址，也就是"$AA:$AA" 2.使用split函数按照字符"$"进行拆分得到数组，索引为2的就是我们需要的列字母 Function ColLetter(Num As Long) As String ColLetter = Split(Columns...
如何用Excel VBA循环和条件语句写猜大小游戏程序 microsoft 有问必答
2022-05-20 13:08

回答 3 已采纳程序的常数可以用rnd生成，while示例如下 Sub games() num = CInt(Rnd() * 100) '生成100以内的随机数 MsgBox num Do
写程式/ VBA /APP/网页小程序数据库架构问答团队
2022-10-13 23:04

回答 2 已采纳我来试试看
VBA判断单元格是否完全显示或置顶 c++ java 小程序开发语言
2021-01-12 14:48

回答 2 已采纳第一个需求可以用这段代码 Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Private S
Excel VBA宏
2021-10-13 11:45

塞奈的博客一、宏与VBA 什么是宏与VBA VBA（Visual Basic for Applications）是[Visual Basic](https://baike.baidu.com/item/Visual Basic)的一种宏语言，是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能...
VBA Userform1 控制 Userform2 小程序问答团队
2021-03-18 22:16

回答 1 已采纳自己找到答案了，UserForm2.Show 默认是vbModal, 在Userform2被关闭前，不会执行赋值代码，关闭后，执行了赋值“Test”的代码，第二次打开Userform2时，显示的是前一
WPS 破解宏安装VBA VBA for WPS
2022-10-12 14:25

跳舞的Tango的博客 WPS 破解宏安装VBA
Excel之VBA简单宏编程
2018-06-05 01:26

ziv404的博客 Excel之VBA简单宏编程 excel是一款很经典的数据分析的工具，里面包含了很多内置函数，但实际情况有时却复杂得多，而excel的宏编程提供了自定义函数的功能，正好有老师需要帮忙做一些数据分析，就学习了一下，下面是...
没有解决我的问题, 去提问

悬赏问题

¥30 dspbuilder中使用signalcompiler时报错Error during compilation: Fitter failed，求解决办法
¥15 gwas 分析-数据质控之过滤稀有突变中出现的问题
¥15 没有注册类 (异常来自 HRESULT: 0x80040154 (REGDB_E_CLASSNOTREG))
¥15 知识蒸馏实战博客问题
¥15 用PLC设计纸袋糊底机送料系统
¥15 simulink仿真中dtc控制永磁同步电机如何控制开关频率
¥15 用C语言输入方程怎么
¥15 网站显示不安全连接问题
¥15 51单片机显示器问题
¥20 关于#qt#的问题：Qt代码的移植问题

VBA宏，求救贴（行会变，列固定表头）

1条回答 默认 最新

悬赏问题

1条回答默认最新