EXCEL VBA 二维表转换成一维表

Sub 按钮2_Click()Rem 初始化Worksheets(1).ActivateDim sizeArr(5)sizeArr(0) = "XS"sizeArr(1) = "S"sizeArr(2) = "M"sizeArr(3) = "L"sizeArr(4) = "XL"Dim col, row, productNum, refCol, targetRowtargetRow = 1Sheet2.Range("A1:A65536").ClearDim iA As IntegerRem 交叉表转一维表For row = 3 To 65536: Rem 处理行If StrComp(Sheet1.Cells(row, 1), "") = 0 Then GoTo line: Rem 如果为空就中止处理iA = Asc(Left(Sheet1.Cells(row, 1), 1))Rem 如果不是英文字符开头,就跳过If (iA >= 65 And iA <= 90) Or (iA >= 97 And iA <= 122) ThenFor col = 3 To 7: Rem 处理列productNum = Sheet1.Cells(row, 1) & Left(Sheet1.Cells(row, 2), 2)Rem 取尺码对照表列号If StrComp(Left(productNum, 1), "K") = 0 ThenrefCol = 4ElseIf StrComp(Left(productNum, 1), "B") = 0 ThenrefCol = 3ElseIf StrComp(Left(productNum, 1), "C") = 0 ThenrefCol = 3ElserefCol = 2End IfproductNum = productNum & Sheet3.Cells(col - 1, refCol)Rem 取铺货件数，如果<=0，就跳过，否则插入一维表If Sheet1.Cells(row, col) > 0 ThenSheet2.Cells(targetRow, 1) = productNum & "," & Sheet1.Cells(row, col)targetRow = targetRow + 1End IfNextEnd If
line:NextIf targetRow = 1 ThenWorksheets(1).ActivateMsgBox "二维表没有数据！"ElseSheet2.Range("D4").Value = targetRow - 1Worksheets(2).ActivateMsgBox "生成成功！"End IfEnd Sub

EXCEL VBA 二维表转换成一维表相关推荐

java把二维转换为一维_在R语言中什么函数可以将二维数组转换成一维数组
满意答案 vi31892i 2013.09.11 采纳率:44% 等级:11 已帮助:6956人这好象是汇编语言的问题吧举个例子吧 #include "iostream.h&quo ...
二维表转一维表 mysql_Excel二维表转换成一维表（2种方法）
今天大年初四,春节假期还剩三天了,每逢佳节胖三斤,亲们可要注意控制饮食了,要不然春节后无脸见人哟.闲话少说,今日分享如下. 在做数据处理的时候,有的时候为了处理方便我们需要将二维的数据表处理成一维的数 ...
python二维表转一维表_二维表格转换成一维表格
# 加载数据 import pandas as pd df_old1 = pd.read_excel(r"D:\Jupyter\data\Python.xlsx",sheet_na ...
PowerBI强大的数据汇总能力：将几十张Excel二维表批量转换成一维表进行可视化分析
目录如何分析单张二维表数据如何用PowerBI搞定几十张二维表操作步骤打开Power BI Desktop,获取数据,自文件夹,选择数据源路径,确定选择转换数据保留content列,删除其 ...
python把二维列表转成一维列表
python把二维列表转成一维列表先把列表转成numpy数组,然后使用flatten()函数把数组扁平化. 示例代码如下: # !/usr/bin/python # -*- coding: utf- ...
微信二维码转换成链接
微信二维码转换成链接我们很多人都在想,怎样才能把二维码转换成网址链接,然后点击网址链接就直接进入二维码呢?下面就是转换成链接的方法之一: 微信转链接步骤一: 打开https://cli.im/de ...
mysql宽表优化_将MySQL的窄表转换成宽表的方法
将MySQL的窄表转换成宽表的方法在扩展设计中,使用窄表可以很方便的增加新的项.如果用宽表,就会需要修改表结构,很不方便. 而使用宽表在查询过滤数据的时候会比窄表方便很多,数据的记录量也会少很多. ...
怎么将二维码转换成链接网址？二维码图片怎么变成链接？
现在二维码已经在我们的工作和生活中应用的越来越多,通过扫描二维码图片能够获取到各种类型的内容,那么如何将二维码图片解码,生成一个网址链接呢?可以使用在线二维码解码工具来处理,只需要上传二维码图片,一键 ...
使用生成器以及递归实现二维乃至多维列表转换成一维列表（python实现）
第一题: 将任意一个二维列表转为一维列表: a = [[1,2,3,4],[6,8,9,6]]def
java8 lambda 将二维数组转换成list集合
将二维数组int[][]转换成一个嵌套的List<List<Integer>> 的形式代码如下 public static List<List<Integer&g ...

EXCEL VBA 二维表转换成一维表

EXCEL VBA 二维表转换成一维表相关推荐

最新文章

热门文章