• 所有问题

    • excel vba按列顺序依次写入数据？

    如图示表格，我想实现报废数量通过窗体文本和按键控件自动录入，比如产品1，第一次输入数据在第二列，第二次输入在第三列，按列依次输入，其他产品也是类似，请问有没有知道代码怎么写的，谢谢

    举报该问题
    推荐答案   2020-04-18
    用Cells(row,column)这个来定位即可
    选定产品几来确定ROW的返回值
    然后用.End(xlToLeft).Column来返回column的值
    再把窗体文本写入Cells(r,c)即可。
    温馨提示：答案为网友推荐，仅供参考
    相似回答
    EXCEL 如何用VBA语言将一个EXCEL文件中不同sheet中的列数据 按列顺序...答：Public Sub HBsh() Dim Sh As Worksheet, i As Long i = 1 For Each Sh In Worksheets If Sh.Name <> "总的" Then Sheets("总的").Cells(1, i).Resize(Sh.Range("A1").CurrentRegion.Rows.Count, Sh.Range("A1").CurrentRegion.Columns.Count).Value = Sh.Range(...
    如何根据条件将excel里sheet1里A列数据顺序填充到sheet2-100里?答：根据条件将Excel里Sheet1表A列数据顺序填充到Sheet2-100个表里的G10单元格中，对于这样的操作，需要利用VBA编程来实现，代码如下：Sub PutIn()Dim ForI For ForI = 2 to 99 Sheets(ForI).Range(“G10”) = Sheet1.Cells(ForI - 1,1)Next End Sub 代码图 注：代码是按Alt+F11组合键打开...
    EXCEL 如何用VBA语言将一个EXCEL文件中不同sheet中的同一列数据按顺序...答：Sub MergeData() '将其他sheet的同列数据合并到第一张sheet Dim i As Integer, N As Integer Dim j As Long, k As Long N = Sheets.Count '如果工作簿中只有一张工作表，则退出 If N = 1 Then Exit Sub '确定工作表的列数(假定其他工作表都与第一张工作表数据结构...
    EXCEL VBA如何实现批量自动按序号选择贴数据,将上表的数据自动贴入下面...答：第6 行 '这个是你要输出的（图2的）列的序号 第7行 '这个是你的第一列需要查找a1:a30的范围（a1:a100就可以改为For j = 1 To 100）第8行 'sheet2改成你工作表图1工作的名称（名称注意有没有空格），同理a1:a30也要改 第9行 'sheet3改成你工作表中图2工作的名称（同样的...
    如何使用VBA实现下拉排序?答：如图，B3输入：=LARGE($A$3:$A$10,ROW(1:1))，下拉，从大到小排序；D3输入：=IF($D$1=SUM($D$2:D2),0,IF(ROUND(C3,0)<1,1,ROUND(C3,0)))，下拉；E3输入：=IF(SUM($D$3:$D$10)<$D$1,D3-SUM($D$3:$D$10)+$D$1,D3)，E4输入：=D4，下拉至E9；E10输入：=IF...
    excel用vba变量语句从A表顺序依次取值,往B表有规律遍数顺序粘贴数据...答：就在中类表里的B2单元格输入公式：=OFFSET(功能主治!A$2,INT((ROW(A1)-1)/12),0)然后向右填充一列，再下拉到功能主治表总行数乘以12的长度，就可以了 如果你需要vba可以试试这个：Sub chongfu()Sheets("中类表").Range("B:C").ClearContentsn = WorksheetFunction.CountA(Sheets("功能主治")...
    如何将excel中A列中的同一组数据按照升序在B列中排列且填充数据答：A列数据包含B列数据，但顺序不同，如何根据A列给B列数据排序（按A列中的数据顺序） 用VLOOK函数,方法: 你可以在新的一列(C列)中将B列按A列排序.在C1中输入函数: =vlookup(A1,B:B,1,0),然后再拉一下就行了 楼主有没有来看过,我是试好才发出来的.EXCEL中如何把A列、B列中包含相同...
    Excel中用VBA,按顺序添加序号?答：简单的说就是 点 大项，在A列非空，依次写A或B。。。C...D 小项 就是 数字 递增，根据前面的 A列先输入 A Sub 大项()Dim i For i = Range("A65536").End(xlUp).Row To 1 Step -1 x = Asc(Cells(i, 1))If (x >= 65 And x <= 90) Then n = Range("A65536")....
    excel,因行数很多,想用vba把每一行都按行从小到大排序,并把数据写在...答：I2 =SMALL($A2:$G2,COLUMN(A2)) 向右复制 然后再向下复制 就重新排列了……哦 没注意 你是要同时去掉重复的……那么公式修改一下：将H列随便填充一些东西就可以了……I2 =IF(SMALL($A2:$G2,COLUMN(A2))=H2,"",SMALL($A2:$G2,COLUMN(A2)))然后复制 这些结果I2:O1000？在原位选择...
    大家正在搜
    vba excel 写入wordvba读取excel写入wordvba处理excel数据excel编写vba程序excel vba 数组vba写入数据到单元格excel怎么进入vbavba 打开excelexcel vba代码
    相关问题
    EXCELL VBA 编程把表格里多列数据按照从左到右的顺序...
    excel用vba变量语句从A表顺序依次取值，往B表有规律遍...
    excelVBA如何当某固定列的数据改变时在另一工作表中按先...
    EXCELVBA如何把几列按顺序排成了行
    EXCEL-VBA，提取sheet1的A列，按原来的顺序统计...
    excel中让一列的数据按另一列数据的顺序排序
    EXCEL VBA按顺序输入序号
    EXCEL 如何用VBA语言将一个EXCEL文件中不同she...